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.10.2.4 -r1.10.2.5
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql	20 Mar 2003 22:13:59 -0000	1.10.2.4
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql	9 Nov 2003 20:56:45 -0000	1.10.2.5
@@ -117,4 +117,19 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="fs::add_file.item_exists">
+      <querytext>
+          select count(*) from cr_items
+          where name=:name
+          and parent_id=:parent_id
+      </querytext>
+    </fullquery>
+
+  <fullquery name="fs::add_file.set_live_revision">
+    <querytext>
+      update cr_items set live_revision=:revision_id
+      where item_id=:item_id
+    </querytext>
+  </fullquery>
+  
 </queryset>