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 -r1.15 -r1.15.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	5 Jan 2004 02:16:58 -0000	1.15
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	26 Jul 2004 23:57:01 -0000	1.15.2.1
@@ -125,13 +125,30 @@
       </querytext>
     </fullquery>
 
+  <fullquery name="fs::get_parent.get_parent_id">
+    <querytext>
+	select parent_id from cr_items where item_id=:item_id;
+    </querytext>
+  </fullquery>
+
   <fullquery name="fs::add_version.set_live_revision">
     <querytext>
       update cr_items set live_revision=:revision_id
       where item_id=:item_id
     </querytext>
   </fullquery>
 
+<fullquery name="fs::delete_file.version_name">      
+      <querytext>
+      
+    	select i.name as title, r.title as version_name 
+	from cr_items i, cr_revisions r
+	where i.item_id = r.item_id
+	and r.revision_id = :version_id
+
+      </querytext>
+</fullquery>
+
   <fullquery name="fs::set_folder_description.set_folder_description">
     <querytext>
       update cr_folders set description=:description