Index: openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl 7 Aug 2017 23:47:45 -0000 1.6 +++ openacs-4/packages/acs-admin/www/apm/version-generate-info.tcl 19 Jan 2018 21:23:51 -0000 1.7 @@ -23,6 +23,7 @@ ad_script_abort } else { ns_return 200 text/plain [apm_generate_package_spec $version_id] + ad_script_abort } Index: openacs-4/packages/acs-admin/www/auth/batch-document-download.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-document-download.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/auth/batch-document-download.tcl 7 Aug 2017 23:47:45 -0000 1.3 +++ openacs-4/packages/acs-admin/www/auth/batch-document-download.tcl 19 Jan 2018 21:23:51 -0000 1.4 @@ -13,6 +13,7 @@ }] ns_return 200 text/plain $document +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-admin/www/users/session-history.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/session-history.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-admin/www/users/session-history.tcl 7 Aug 2017 23:47:45 -0000 1.5 +++ openacs-4/packages/acs-admin/www/users/session-history.tcl 19 Jan 2018 21:23:51 -0000 1.6 @@ -63,6 +63,7 @@ " db_release_unused_handles ns_return 200 text/html $whole_page +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/sessions-one-month.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl 7 Aug 2017 23:47:45 -0000 1.4 +++ openacs-4/packages/acs-admin/www/users/sessions-one-month.tcl 19 Jan 2018 21:23:51 -0000 1.5 @@ -51,6 +51,7 @@ " db_release_unused_handles ns_return 200 text/html $whole_page +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-admin/www/users/sessions-registered-summary.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/Attic/sessions-registered-summary.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/users/sessions-registered-summary.tcl 7 Aug 2017 23:47:45 -0000 1.3 +++ openacs-4/packages/acs-admin/www/users/sessions-registered-summary.tcl 19 Jan 2018 21:23:51 -0000 1.4 @@ -11,11 +11,11 @@ # go_beyond_60_days_p (optional; default is to limit to 60 days) -append whole_page "[ad_admin_header "Registered Sessions"] +append whole_page "[ad_admin_header {Registered Sessions}]

Registered Sessions

-[ad_context_bar [list "./" "Users"] "Registered Sessions"] +[ad_context_bar [list ./ Users] {Registered Sessions}]
@@ -64,6 +64,7 @@ [ad_admin_footer] " ns_return 200 text/html $whole_page +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-automated-testing/www/admin/clear.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/clear.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-automated-testing/www/admin/clear.tcl 7 Aug 2017 23:47:46 -0000 1.5 +++ openacs-4/packages/acs-automated-testing/www/admin/clear.tcl 19 Jan 2018 21:23:51 -0000 1.6 @@ -15,6 +15,7 @@ db_dml delete_testcase_tests_sql $sql ad_returnredirect "index?by_package_key=$package_key&by_category=$category&view_by=$view_by&quiet=$quiet" +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-automated-testing/www/admin/init-file-resource.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/init-file-resource.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-automated-testing/www/admin/init-file-resource.tcl 7 Aug 2017 23:47:46 -0000 1.2 +++ openacs-4/packages/acs-automated-testing/www/admin/init-file-resource.tcl 19 Jan 2018 21:23:51 -0000 1.3 @@ -14,6 +14,7 @@ apm_source $absolute_file_path ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl 7 Aug 2017 23:47:46 -0000 1.7 +++ openacs-4/packages/acs-automated-testing/www/admin/rerun.tcl 19 Jan 2018 21:23:51 -0000 1.8 @@ -22,16 +22,19 @@ {by_package_key $package_key} {by_category $category} view_by quiet stress security_risk}] + ad_script_abort } else { if {$quiet} { aa_runseries -quiet -testcase_id $testcase_id "" "" } else { aa_runseries -testcase_id $testcase_id "" "" } ad_returnredirect "testcase?testcase_id=$testcase_id&package_key=$package_key&quiet=$quiet" + ad_script_abort } + # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/acs-bootstrap-installer/installer.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer.tcl,v diff -u -r1.27 -r1.28 --- openacs-4/packages/acs-bootstrap-installer/installer.tcl 17 Dec 2017 20:36:03 -0000 1.27 +++ openacs-4/packages/acs-bootstrap-installer/installer.tcl 19 Jan 2018 21:23:51 -0000 1.28 @@ -214,6 +214,7 @@ proc install_file_serve { path } { if {[file isdirectory $path] && [string index [ad_conn url] end] != "/" } { ad_returnredirect "[ad_conn url]/" + ad_script_abort } else { ns_log Debug "Installer serving $path" ad_try { @@ -223,6 +224,7 @@ your URL and try again." } trap {AD EXCEPTION redirect} {url} { ad_returnredirect $url + ad_script_abort } trap {AD EXCEPTION directory} {dir_index} { set new_file [file join $path "index.html"] if {[file exists $new_file]} { Index: openacs-4/packages/acs-content-repository/www/admin/mime-types/unmap.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/www/admin/mime-types/unmap.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-content-repository/www/admin/mime-types/unmap.tcl 7 Aug 2017 23:47:47 -0000 1.2 +++ openacs-4/packages/acs-content-repository/www/admin/mime-types/unmap.tcl 19 Jan 2018 21:23:51 -0000 1.3 @@ -17,6 +17,7 @@ db_dml extension_unmap {} ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl 7 Aug 2017 23:47:54 -0000 1.4 +++ openacs-4/packages/acs-core-docs/www/files/tutorial/note-delete.tcl 19 Jan 2018 21:23:51 -0000 1.5 @@ -15,7 +15,7 @@ ad_returnredirect "." # stop running this code, since we're redirecting -abort +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-developer-support/www/send.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/send.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-developer-support/www/send.tcl 7 Aug 2017 23:47:56 -0000 1.6 +++ openacs-4/packages/acs-developer-support/www/send.tcl 19 Jan 2018 21:23:51 -0000 1.7 @@ -31,6 +31,7 @@ } } } +ad_script_abort # Local variables: Index: openacs-4/packages/acs-lang/www/admin/load-catalog-files.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/load-catalog-files.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-lang/www/admin/load-catalog-files.tcl 7 Aug 2017 23:47:57 -0000 1.6 +++ openacs-4/packages/acs-lang/www/admin/load-catalog-files.tcl 19 Jan 2018 21:23:51 -0000 1.7 @@ -9,6 +9,7 @@ lang::catalog::import ad_returnredirect "index" +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-lang/www/admin/message-conflict-resolve.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-conflict-resolve.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-lang/www/admin/message-conflict-resolve.tcl 7 Aug 2017 23:47:57 -0000 1.3 +++ openacs-4/packages/acs-lang/www/admin/message-conflict-resolve.tcl 19 Jan 2018 21:23:51 -0000 1.4 @@ -13,6 +13,7 @@ lang::message::edit $package_key $message_key $locale [list conflict_p f] ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-lang/www/admin/message-conflict-revert.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/message-conflict-revert.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-lang/www/admin/message-conflict-revert.tcl 7 Aug 2017 23:47:57 -0000 1.3 +++ openacs-4/packages/acs-lang/www/admin/message-conflict-revert.tcl 19 Jan 2018 21:23:51 -0000 1.4 @@ -21,6 +21,7 @@ } ad_returnredirect $return_url +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-lang/www/admin/reload-cache.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/reload-cache.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-lang/www/admin/reload-cache.tcl 7 Aug 2017 23:47:57 -0000 1.2 +++ openacs-4/packages/acs-lang/www/admin/reload-cache.tcl 19 Jan 2018 21:23:51 -0000 1.3 @@ -9,6 +9,7 @@ lang::message::cache ad_returnredirect "index" +ad_script_abort # Local variables: # mode: tcl Index: openacs-4/packages/acs-lang/www/admin/translator-mode-toggle.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/translator-mode-toggle.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-lang/www/admin/translator-mode-toggle.tcl 7 Aug 2017 23:47:57 -0000 1.3 +++ openacs-4/packages/acs-lang/www/admin/translator-mode-toggle.tcl 19 Jan 2018 21:23:51 -0000 1.4 @@ -11,8 +11,8 @@ lang::util::translator_mode_set [expr {![lang::util::translator_mode_p]}] ad_returnredirect $return_url +ad_script_abort - # Local variables: # mode: tcl # tcl-indent-level: 4 Index: openacs-4/packages/acs-ldap-authentication/www/examples/user-new-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-ldap-authentication/www/examples/user-new-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-ldap-authentication/www/examples/user-new-2.tcl 29 Dec 2008 22:14:14 -0000 1.3 +++ openacs-4/packages/acs-ldap-authentication/www/examples/user-new-2.tcl 19 Jan 2018 21:23:51 -0000 1.4 @@ -93,3 +93,5 @@ } ad_returnredirect $return_url +ad_script_abort + Index: openacs-4/packages/acs-object-management/www/admin/view-attributes-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/www/admin/view-attributes-add.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-object-management/www/admin/view-attributes-add.tcl 27 Nov 2009 00:38:50 -0000 1.2 +++ openacs-4/packages/acs-object-management/www/admin/view-attributes-add.tcl 19 Jan 2018 21:23:51 -0000 1.3 @@ -14,4 +14,4 @@ } ad_returnredirect $return_url - +ad_script_abort Index: openacs-4/packages/acs-object-management/www/admin/view-attributes-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/www/admin/view-attributes-delete.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-object-management/www/admin/view-attributes-delete.tcl 27 Nov 2009 00:38:50 -0000 1.2 +++ openacs-4/packages/acs-object-management/www/admin/view-attributes-delete.tcl 19 Jan 2018 21:23:51 -0000 1.3 @@ -16,4 +16,4 @@ } ad_returnredirect $return_url - +ad_script_abort Index: openacs-4/packages/acs-object-management/www/admin/widget-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/www/admin/widget-remove.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-object-management/www/admin/widget-remove.tcl 27 Nov 2009 00:38:50 -0000 1.1 +++ openacs-4/packages/acs-object-management/www/admin/widget-remove.tcl 19 Jan 2018 21:23:51 -0000 1.2 @@ -13,3 +13,5 @@ -attribute_id $attribute_id ad_returnredirect $return_url +ad_script_abort + Index: openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl 7 Aug 2017 23:47:58 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/admin/themes/delete.tcl 19 Jan 2018 21:23:51 -0000 1.3 @@ -18,3 +18,4 @@ subsite::delete_subsite_theme -key $theme ns_returnredirect "." +ad_script_abort Index: openacs-4/packages/acs-subsite/www/admin/themes/set.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/themes/set.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/admin/themes/set.tcl 7 Aug 2017 23:47:58 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/admin/themes/set.tcl 19 Jan 2018 21:23:51 -0000 1.3 @@ -18,3 +18,4 @@ subsite::set_theme -theme $theme ns_returnredirect "." +ad_script_abort