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 -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 @@
+
+
+
+ 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
+
+
+
+
+
+
+
+ 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
+
+
+
+