Index: openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql	15 May 2001 16:59:00 -0000	1.2
@@ -17,4 +17,20 @@
 </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 t1, acs_object_types t2
+                                       where t2.object_type not in (select g.rel_type
+                                                                      from group_type_rels g
+                                                                     where g.group_type = :group_type)
+					 and t1.object_type in ('membership_rel','composition_rel')
+					 and t2.tree_sortkey like t1.tree_sortkey || '%')
+                    then 1 else 0 end
+      
+      </querytext>
+</fullquery>
+
+ 
 </queryset>