Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	15 Jun 2015 11:14:18 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	7 Aug 2017 23:47:58 -0000	1.7
@@ -12,7 +12,7 @@
 } {
     group_id:integer,notnull
     rel_type:notnull
-    { return_url "" }
+    { return_url:localurl "" }
 } -properties {
     context:onevalue
     export_vars:onevalue
@@ -41,15 +41,16 @@
 
 set export_vars [export_vars -form {group_id rel_type return_url}]
 
-db_1row select_basic_info {
-    select acs_group.name(:group_id) as group_name,
-    nvl(acs_rel_type.role_pretty_plural(t.role_two),'Elements') as role_pretty_plural
-      from acs_rel_types t
-     where t.rel_type = :rel_type
-}
+db_1row select_basic_info {}
 
 # The role pretty names can be message catalog keys that need
 # to be localized before they are displayed
 set role_pretty_plural [lang::util::localize $role_pretty_plural]    
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: