Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl,v
diff -u -N -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl	10 Sep 2015 08:21:41 -0000	1.6.2.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl	27 Oct 2015 23:01:35 -0000	1.6.2.2
@@ -32,21 +32,7 @@
 # rel type. If you can find a more efficient way to do this query,
 # please let us know! -mbryzek
 
-db_multirow primary_rels select_primary_relations {
-    select replace(lpad(' ', (t.type_level - 1) * 4), ' ', ' ') as indent,
-           t.pretty_name, t.rel_type
-      from (select t.pretty_name, t.object_type as rel_type, level as type_level
-              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')) t,
-           acs_rel_types rel_type
-     where t.rel_type = rel_type.rel_type
-       and (rel_type.object_type_one = :group_type 
-            or acs_object_type.is_subtype_p(rel_type.object_type_one, :group_type) = 't')
-}
+db_multirow primary_rels select_primary_relations {}
 
 
 set export_vars [export_vars -form {group_type return_url}]