Index: openacs-4/packages/acs-subsite/www/register/logout.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/logout.tcl,v diff -u -N -r1.6 -r1.6.2.1 --- openacs-4/packages/acs-subsite/www/register/logout.tcl 5 Jan 2018 22:40:56 -0000 1.6 +++ openacs-4/packages/acs-subsite/www/register/logout.tcl 14 May 2023 22:02:52 -0000 1.6.2.1 @@ -1,5 +1,3 @@ -# /www/register/logout.tcl - ad_page_contract { Logs a user out @@ -10,7 +8,10 @@ } if { $return_url eq "" } { - if { [permission::permission_p -object_id [subsite::get_element -element package_id] -party_id 0 -privilege read] } { + if { [permission::permission_p \ + -object_id [subsite::get_element -element package_id] \ + -party_id 0 \ + -privilege read] } { set return_url [subsite::get_element -element url] } else { set return_url /