Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -N -r1.51.2.4 -r1.51.2.5
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 6 Apr 2021 19:16:16 -0000 1.51.2.4
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 7 Apr 2021 19:54:44 -0000 1.51.2.5
@@ -98,18 +98,6 @@
-
-
- begin
- perform acs_object__update_last_modified
- (:parent_id,:creation_user,:creation_ip);
- perform
- acs_object__update_last_modified(:item_id,:creation_user,:creation_ip);
- return null;
- end;
-
-
-
With RECURSIVE items AS (
@@ -123,60 +111,6 @@
-
-
- select content_revision__new (
- :title, -- title
- :description, -- description
- now(), -- publish_date
- :mime_type, -- mime_type
- null, -- ns_language
- :content_body, -- text
- :item_id, -- item_id
- null,
- now(), -- creation_date
- :creation_user, -- creation_user
- :creation_ip, -- creation_ip
- null,
- :package_id -- package_id
- )
-
-
-
-
-
-
- update cr_revisions
- set mime_type = :mime_type,
- lob = [set __lob_id [db_string get_lob_id "select empty_lob()"]]
- where revision_id = :revision_id
-
-
-
-
-
-
-
- update cr_revisions
- set content_length = lob_length(lob)
- where revision_id = :revision_id
-
-
-
-
-
-
-
- begin
- perform acs_object__update_last_modified
- (:parent_id,:creation_user,:creation_ip);
- perform
- acs_object__update_last_modified(:item_id,:creation_user,:creation_ip);
- return null;
- end;
-
-
-
select file_storage__new_file (