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 @@
      </querytext>
   </fullquery>
   
-  <fullquery name="fs::add_version.update_last_modified">
-    <querytext>
-      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;
-    </querytext>
-  </fullquery>
-
   <fullquery name="fs::get_folder_package_and_root.select_package_and_root">
     <querytext>
       With RECURSIVE items AS (
@@ -123,60 +111,6 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="fs::add_created_version.new_file_revision">
-    <querytext>
-	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
-	)
-    </querytext>
-  </fullquery>
-
-<fullquery name="fs::add_created_version.set_lob_content">      
-      <querytext>
-
-      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
-         
-      </querytext>
-</fullquery>
- 
-<fullquery name="fs::add_created_version.set_lob_size">      
-      <querytext>
-
-         update cr_revisions
-         set content_length = lob_length(lob)
-         where revision_id = :revision_id
-
-      </querytext>
-</fullquery>
-
-
-  <fullquery name="fs::add_created_version.update_last_modified">
-    <querytext>
-      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;
-    </querytext>
-  </fullquery>
-
   <fullquery name="fs::add_created_file.create_item">
     <querytext>
       select file_storage__new_file (