Index: openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl	27 Jun 2015 16:03:12 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/groups/constraints-create.tcl	7 Aug 2017 23:47:58 -0000	1.6
@@ -12,7 +12,7 @@
 } {
     group_id:notnull,naturalnum
     rel_type:notnull
-    { return_url "" }
+    { return_url:localurl "" }
 } -properties {
     context:onevalue
     export_vars:onevalue
@@ -23,13 +23,14 @@
 set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] [list [export_vars -base one group_id] "One Group"] "Add constraint"]
 set export_vars [export_vars -form {group_id rel_type return_url}]
 
-db_1row select_props {
-    select acs_group.name(:group_id) as group_name,
-           t.pretty_name as rel_type_pretty_name
-      from acs_object_types t
-     where t.object_type = :rel_type
-}
+db_1row select_props {}
 
 ad_return_template
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: