Index: openacs-4/packages/acs-subsite/tcl/rel-types-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-types-procs-oracle.xql,v
diff -u -r1.3.14.1 -r1.3.14.2
--- openacs-4/packages/acs-subsite/tcl/rel-types-procs-oracle.xql	27 Oct 2015 22:56:30 -0000	1.3.14.1
+++ openacs-4/packages/acs-subsite/tcl/rel-types-procs-oracle.xql	2 Jan 2016 12:42:03 -0000	1.3.14.2
@@ -39,5 +39,34 @@
 end;
 </querytext>
 </fullquery>
- 
+
+<fullquery name="rel_types::additional_rel_types_group_p.group_rel_type_exists">      
+<querytext>
+     select case when exists (select 1
+                              from acs_object_types t
+                              where t.object_type not in (select g.rel_type
+                                                          from group_rels g
+                                                          where g.group_id = :group_id)
+                              connect by prior t.object_type = t.supertype
+                              start with t.object_type in ('membership_rel','composition_rel'))
+            then 1 else 0 end
+            from dual
+</querytext>
+</fullquery>
+
+<fullquery name="rel_types::additional_rel_types_group_type_p.group_rel_type_exists">      
+<querytext>
+     select case when exists (select 1
+                              from acs_object_types t
+                              where t.object_type not in (select g.rel_type
+                                                          from group_type_rels g
+                                                          where g.group_type = :group_type)
+                              connect by prior t.object_type = t.supertype
+                              start with t.object_type in ('membership_rel','composition_rel'))
+            then 1 else 0 end
+            from dual
+</querytext>
+</fullquery>
+
+
 </queryset>