Index: openacs-4/packages/file-storage/tcl/file-storage-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.xql,v
diff -u -N -r1.22 -r1.22.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	21 Nov 2017 11:31:29 -0000	1.22
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	7 Apr 2021 19:54:44 -0000	1.22.2.1
@@ -147,27 +147,6 @@
     </querytext>
   </fullquery>
 
-<fullquery name="fs::add_created_version.get_storage_type">
-  <querytext>
-    select storage_type from cr_items where item_id=:item_id
-  </querytext>
-</fullquery>
-
-<fullquery name="fs::add_created_version.set_live_revision">
-  <querytext>
-      update cr_items set live_revision=:revision_id
-      where item_id=:item_id
-  </querytext>
-</fullquery>
-
-<fullquery name="fs::add_created_version.update_revision">
-  <querytext>
-	update	cr_revisions
-	set content = :cr_file,	content_length = :file_size
-	where revision_id = :revision_id
-  </querytext>
-</fullquery>
-
 <fullquery name="fs::add_created_file.item_exists">
    <querytext>
           select count(*) from cr_items