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.13 -r1.14
--- openacs-4/packages/file-storage/tcl/file-storage-procs.xql 11 Dec 2003 21:40:04 -0000 1.13
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql 15 Dec 2003 11:21:04 -0000 1.14
@@ -117,5 +117,18 @@
+
+
+ select count(*) from cr_items
+ where name=:name
+ and parent_id=:parent_id
+
+
+
+
+ update cr_items set live_revision=:revision_id
+ where item_id=:item_id
+
+