Index: openacs-4/packages/acs-subsite/www/admin/groups/constraints-create-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/constraints-create-2.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-subsite/www/admin/groups/constraints-create-2.tcl 19 Jan 2018 14:09:48 -0000 1.6 +++ openacs-4/packages/acs-subsite/www/admin/groups/constraints-create-2.tcl 3 Sep 2024 15:37:34 -0000 1.7 @@ -1,10 +1,8 @@ -# /packages/mbryzek-subsite/www/admin/groups/constraints-create-2.tcl - ad_page_contract { Optionally directs the user to create a relational segment (based on the value of operation) - + @author mbryzek@arsdigita.com @creation-date Thu Jan 4 11:02:15 2001 @cvs-id $Id$ @@ -20,16 +18,16 @@ if {$operation eq "yes"} { if { $return_url eq "" } { - # Setup return_url to send up back to the group admin page - # when we're all done - set return_url [export_vars -base [ad_conn package_url]/admin/groups/one group_id] + # Setup return_url to send up back to the group admin page + # when we're all done + set return_url [export_vars -base [ad_conn package_url]/admin/groups/one group_id] } ad_returnredirect [export_vars -base ../rel-segments/new {group_id rel_type return_url}] ad_script_abort } else { if { $return_url eq "" } { - set return_url [export_vars -base one group_id] + set return_url [export_vars -base one group_id] } ad_returnredirect $return_url ad_script_abort