Index: openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl 7 Aug 2017 23:47:58 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/admin/manage-email-privacy.tcl 5 Jan 2018 22:40:56 -0000 1.4 @@ -29,6 +29,7 @@ } -after_submit { ad_returnredirect "/acs-admin/users/" + ad_script_abort } # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/members/member-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-remove.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-subsite/www/members/member-remove.tcl 22 Nov 2017 14:59:55 -0000 1.7 +++ openacs-4/packages/acs-subsite/www/members/member-remove.tcl 5 Jan 2018 22:40:56 -0000 1.8 @@ -20,6 +20,7 @@ } ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl 7 Aug 2017 23:47:59 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/permissions/perm-modify.tcl 5 Jan 2018 22:40:56 -0000 1.6 @@ -78,6 +78,7 @@ set message [expr {$changes_p ? [_ acs-subsite.Information_Updated] : ""}] ad_returnredirect -message $message $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl 7 Aug 2017 23:47:59 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/permissions/perm-user-add-2.tcl 5 Jan 2018 22:40:56 -0000 1.5 @@ -15,6 +15,7 @@ } ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl 7 Aug 2017 23:47:59 -0000 1.7 +++ openacs-4/packages/acs-subsite/www/permissions/toggle-inherit.tcl 5 Jan 2018 22:40:56 -0000 1.8 @@ -28,6 +28,7 @@ } ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/pvt/hide-email.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/hide-email.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/www/pvt/hide-email.tcl 7 Aug 2017 23:47:59 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/pvt/hide-email.tcl 5 Jan 2018 22:40:56 -0000 1.5 @@ -10,6 +10,7 @@ db_dml update_show_email {} ad_returnredirect "/pvt/home" +ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/acs-subsite/www/pvt/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/index.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-subsite/www/pvt/index.tcl 7 Aug 2017 23:47:59 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/pvt/index.tcl 5 Jan 2018 22:40:56 -0000 1.4 @@ -7,6 +7,7 @@ } {} ad_returnredirect "home" +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/register/auto-login.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/auto-login.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-subsite/www/register/auto-login.tcl 7 Aug 2017 23:47:59 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/register/auto-login.tcl 5 Jan 2018 22:40:56 -0000 1.4 @@ -16,11 +16,11 @@ if {$auth_info(auth_status) eq "ok"} { ad_returnredirect $return_url - ad_script_abort } else { # Login problem - redirect to login form ad_returnredirect [export_vars -base /register { email return_url }] } +ad_script_abort # Local variables: # mode: tcl 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 -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/register/logout.tcl 7 Aug 2017 23:47:59 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/register/logout.tcl 5 Jan 2018 22:40:56 -0000 1.6 @@ -21,8 +21,8 @@ db_release_unused_handles ad_returnredirect $return_url +ad_script_abort - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/acs-subsite/www/register/user-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.tcl,v diff -u -r1.23 -r1.24 --- openacs-4/packages/acs-subsite/www/register/user-new.tcl 7 Aug 2017 23:47:59 -0000 1.23 +++ openacs-4/packages/acs-subsite/www/register/user-new.tcl 5 Jan 2018 22:40:56 -0000 1.24 @@ -28,6 +28,7 @@ set registration_url [parameter::get -parameter RegistrationRedirectUrl] if {$registration_url ne ""} { ad_returnredirect [export_vars -base "$registration_url" -url {return_url email}] + ad_script_abort } set subsite_id [ad_conn subsite_id] Index: openacs-4/packages/acs-subsite/www/shared/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/index.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/www/shared/index.tcl 7 Aug 2017 23:47:59 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/shared/index.tcl 5 Jan 2018 22:40:56 -0000 1.5 @@ -1,6 +1,8 @@ # $Id$ # user try to play with the URL and get the directory structure instead of a file + ad_returnredirect [subsite::get_element -element url] +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/shared/make-invisible.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/make-invisible.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-subsite/www/shared/make-invisible.tcl 7 Aug 2017 23:47:59 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/shared/make-invisible.tcl 5 Jan 2018 22:40:56 -0000 1.4 @@ -13,8 +13,8 @@ } ad_returnredirect -message [_ acs-subsite.Online_status_set_invisible] -- $return_url +ad_script_abort - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/acs-subsite/www/shared/make-visible.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/make-visible.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-subsite/www/shared/make-visible.tcl 7 Aug 2017 23:47:59 -0000 1.3 +++ openacs-4/packages/acs-subsite/www/shared/make-visible.tcl 5 Jan 2018 22:40:56 -0000 1.4 @@ -13,8 +13,8 @@ } ad_returnredirect -message [_ acs-subsite.Online_status_set_visible] -- $return_url +ad_script_abort - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/acs-subsite/www/shared/send-email.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/send-email.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-subsite/www/shared/send-email.tcl 7 Aug 2017 23:47:59 -0000 1.9 +++ openacs-4/packages/acs-subsite/www/shared/send-email.tcl 5 Jan 2018 22:40:56 -0000 1.10 @@ -47,6 +47,7 @@ } -after_submit { ad_returnredirect $return_url + ad_script_abort } # Local variables: Index: openacs-4/packages/acs-subsite/www/shared/session-update.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/session-update.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/www/shared/session-update.tcl 7 Aug 2017 23:47:59 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/shared/session-update.tcl 5 Jan 2018 22:40:56 -0000 1.5 @@ -33,6 +33,7 @@ ad_set_client_property $session_property(package) $session_property(key) $session_property(value) ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl 7 Aug 2017 23:47:59 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/user/email-privacy-level.tcl 5 Jan 2018 22:40:56 -0000 1.6 @@ -30,10 +30,13 @@ } } -on_request { set level [email_image::get_priv_email -user_id $user_id] + } -on_submit { email_image::update_private_p -user_id $user_id -level $level + } -after_submit { ad_returnredirect $return_url + ad_script_abort } # Local variables: # mode: tcl