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 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="oacs_dav::impl::content_folder::move.update_label">
+    <querytext>
+      update cr_folders 
+	set label = :new_name
+        where folder_id=:move_folder_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="oacs_dav::impl::content_folder::copy.get_new_folder_id">
+    <querytext>
+      select item_id 
+      from cr_items
+      where name = :new_name
+      and parent_id = :new_parent_folder_id
+    </querytext>
+  </fullquery>
+
   <fullquery
       name="oacs_dav::impl::content_revision::copy.set_live_revision">
     <querytext>
@@ -63,4 +80,44 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="oacs_dav::impl::content_revision::move.update_title">
+    <querytext>
+      update cr_revisions 
+	set title = :new_name
+        where revision_id = (select latest_revision from cr_items
+				where item_id=:item_id)
+    </querytext>
+  </fullquery>
+
+    <fullquery name="oacs_dav::children_have_permission_p.revision_perms">
+        <querytext>
+            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')
+        </querytext>
+    </fullquery>
+
+    <fullquery name="oacs_dav::impl::content_folder::copy.update_child_revisions">
+      <querytext>
+	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 
+                      )
+      </querytext>
+    </fullquery>
+
 </queryset>
\ No newline at end of file