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 -r1.6 -r1.7
--- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql	1 Jun 2004 22:54:19 -0000	1.6
+++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql	7 Aug 2017 23:48:13 -0000	1.7
@@ -294,4 +294,17 @@
     </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>
+  
 </queryset>