Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	27 Jun 2015 16:03:13 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	7 Aug 2017 23:47:58 -0000	1.7
@@ -11,7 +11,7 @@
 } {
     group_id:integer,notnull
     { rel_type:trim "" }
-    { return_url "" }
+    { return_url:localurl "" }
 } -properties {
     context:onevalue
     export_vars:onevalue
@@ -41,19 +41,14 @@
 
 set export_vars [export_vars -form {group_id return_url}]
 # Select out all relationship types
-db_multirow rel_types select_relation_types {
-    select t.pretty_name, t.object_type as rel_type,
-    replace(lpad(' ', (level - 1) * 4), ' ', ' ') as indent
-    from acs_object_types t
-    where t.object_type not in (select s.rel_type from rel_segments s where s.group_id = :group_id)
-    connect by prior t.object_type = t.supertype
-    start with t.object_type in ('membership_rel', 'composition_rel')
-    order by lower(t.pretty_name) desc
-}
+db_multirow rel_types select_relation_types {}
 
-db_1row select_basic_info {
-    select acs_group.name(:group_id) as group_name
-      from dual
-}
+db_1row select_basic_info {}
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: