Index: openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-oracle.xql,v
diff -u -r1.1 -r1.1.30.1
--- openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-oracle.xql	15 May 2001 16:59:01 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2-oracle.xql	28 Oct 2015 09:38:37 -0000	1.1.30.1
@@ -14,6 +14,29 @@
       </querytext>
 </fullquery>
 
+<fullquery name="select_rel_ids">      
+      <querytext>
+        select r.rel_id
+          from acs_rels r, acs_object_party_privilege_map perm
+        where perm.object_id = r.rel_id
+          and perm.party_id = :user_id
+          and perm.privilege = 'delete'
+          and r.rel_type = :rel_type    
+      </querytext>
+</fullquery>
+
+
+<fullquery name="select_segment_id">      
+      <querytext>
+	select s.segment_id
+	  from rel_segments s, acs_object_party_privilege_map perm
+	 where perm.object_id = s.segment_id
+ 	   and perm.party_id = :user_id
+	   and perm.privilege = 'delete'
+	   and s.rel_type = :rel_type
+      </querytext>
+</fullquery>
+
  
 <fullquery name="drop_type_table">      
       <querytext>