Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl	27 Jun 2015 16:03:12 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl	7 Aug 2017 23:47:58 -0000	1.6
@@ -10,7 +10,7 @@
 
 } {
     group_id:naturalnum,notnull
-    { return_url "" }
+    { return_url:localurl "" }
 } -properties {
     context:onevalue
     export_vars:onevalue
@@ -33,22 +33,14 @@
      where o.object_id = :group_id
 }
 
-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_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')) 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_id return_url}]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: