Index: openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql	20 Apr 2004 21:13:53 -0000	1.4
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql	17 May 2004 15:15:25 -0000	1.5
@@ -12,6 +12,21 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="oacs_dav::children_have_permission_p.child_perms">
+    <querytext>
+            select count(*)
+            from (select item_id 
+                  from cr_items
+	          connect by prior item_id = parent_id
+	          start with item_id = :item_id)
+            where not  exists (select 1
+                   from acs_object_party_privilege_map m
+                   where m.object_id = cr_items.item_id
+                     and m.party_id = :user_id
+                     and m.privilege = :privilege)
+    </querytext>
+  </fullquery>
+
   <fullquery
     name="oacs_dav::impl::content_folder::propfind.get_properties">
     <querytext>
@@ -51,11 +66,12 @@
       select
 	ci.item_id,
 	ci.name,
-	content_item__get_path(ci.item_id,:folder_id) as item_uri,
-	coalesce(cr.mime_type,'*/*') as mime_type,
-	cr.content_length,
-	to_char(o.creation_date, 'YYYY-MM-DD"T"HH:MM:SS.MS"Z"') as creation_date,
-	to_char(o.last_modified, 'Dy, DD Mon YYYY HH:MM:SS TZ') as last_modified
+	content_item.get_path(ci.item_id,:folder_id) as item_uri,
+	nvl(cr.mime_type,'*/*') as mime_type,
+	nvl(cr.content_length,0) as content_length,
+	to_char(o.creation_date, 'YYYY-MM-DD"T"HH:MI:SS."000"') as creation_date,
+	to_char(o.last_modified, 'Dy, Dd Mon YYYY HH:MI:SS "${os_time_zone}"') as last_modified
+
       from cr_items ci,
       acs_objects o,
       cr_revisions cr
@@ -88,7 +104,7 @@
   <fullquery name="oacs_dav::impl::content_folder::copy.copy_folder">
     <querytext>
 	begin
-	      :1 := content_folder.copy (
+	      content_folder.copy (
 	              folder_id => :copy_folder_id,
 	              target_folder_id => :new_parent_folder_id,
 	              creation_user => :user_id,
@@ -99,6 +115,23 @@
     </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
+	        connect by prior item_id = parent_id
+                start with item_id = :folder_id
+                ) children 
+                where item_id=children.child_item_id 
+                      )
+      </querytext>
+    </fullquery>
+
   <fullquery name="oacs_dav::impl::content_folder::move.move_folder">
     <querytext>
 	begin
@@ -117,7 +150,7 @@
 	      content_folder.rename (
 	              folder_id => :move_folder_id,
 	              name => :new_name,
-	              label => NULL,
+	              label => :new_name,
 	              description => NULL
 	      );
 	end;