Index: openacs-4/packages/acs-subsite/tcl/relation-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/relation-procs.xql	7 Aug 2017 23:47:58 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.xql	22 Nov 2017 14:38:20 -0000	1.7
@@ -87,4 +87,28 @@
       </querytext>
 </fullquery>
 
+<fullquery name="relation_segment_has_dependent.others_depend_p">      
+     <querytext>
+    
+	    select case when exists
+	             (select 1 from rc_violations_by_removing_rel r where r.rel_id = :rel_id)
+	             then 1 else 0 end
+               from dual
+
+     </querytext>
+</fullquery>
+
+<fullquery name="relation_type_is_valid_to_group_p.rel_type_valid_p">      
+      <querytext>
+      
+	    select case when exists
+	             (select 1 from rc_valid_rel_types r 
+                      where r.group_id = :group_id 
+                        and r.rel_type = :rel_type)
+	           then 1 else 0 end
+	      from dual
+    
+      </querytext>
+</fullquery>
+
 </queryset>