Index: openacs-4/packages/acs-subsite/lib/user-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v diff -u -N -r1.24 -r1.25 --- openacs-4/packages/acs-subsite/lib/user-info.tcl 1 Oct 2017 12:16:05 -0000 1.24 +++ openacs-4/packages/acs-subsite/lib/user-info.tcl 17 Jul 2018 11:09:34 -0000 1.25 @@ -8,17 +8,17 @@ auth::require_login -account_status closed -if { (![info exists user_id] || $user_id eq "") } { +if { ![info exists user_id] || $user_id eq "" } { set user_id [ad_conn untrusted_user_id] } elseif { $user_id != [auth::get_user_id -account_status closed] } { permission::require_permission -object_id $user_id -privilege admin } -if { (![info exists return_url] || $return_url eq "") } { +if { ![info exists return_url] || $return_url eq "" } { set return_url [ad_conn url] } -if { (![info exists show_groups_p] || $show_groups_p eq "") } { +if { ![info exists show_groups_p] || $show_groups_p eq "" } { set show_groups_p 0 } Index: openacs-4/packages/acs-subsite/www/group-leave.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/group-leave.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/group-leave.tcl 5 Jan 2018 22:29:13 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/group-leave.tcl 17 Jul 2018 11:09:34 -0000 1.6 @@ -30,7 +30,7 @@ } -if { (![info exists return_url] || $return_url eq "") } { +if { ![info exists return_url] || $return_url eq "" } { set return_url "../" }