Index: openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.xql,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.xql 20 Feb 2004 23:48:22 -0000 1.3
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs.xql 6 May 2004 03:30:03 -0000 1.3.2.1
@@ -55,6 +55,23 @@
+
+
+ update cr_folders
+ set label = :new_name
+ where folder_id=:move_folder_id
+
+
+
+
+
+ select item_id
+ from cr_items
+ where name = :new_name
+ and parent_id = :new_parent_folder_id
+
+
+
@@ -63,4 +80,44 @@
+
+
+ update cr_revisions
+ set title = :new_name
+ where revision_id = (select latest_revision from cr_items
+ where item_id=:item_id)
+
+
+
+
+
+ select count(*)
+ from cr_revisions
+ where item_id = :item_id
+ and not exists (select 1
+ from acs_object_party_privilege_map m
+ where m.object_id = revision_id
+ and m.party_id = :user_id
+ and m.privilege = 'delete')
+
+
+
+
+
+ update cr_items
+ set live_revision=latest_revision
+ where exists (
+ select 1
+ from
+ (select ci1.item_id as child_item_id
+ from cr_items ci1, cr_items ci2
+ where ci2.item_id=:new_folder_id
+ and ci1.tree_sortkey
+ between ci2.tree_sortkey and tree_right(ci2.tree_sortkey)
+ ) children
+ where item_id=child_item_id
+ )
+
+
+
\ No newline at end of file