Index: openacs-4/packages/acs-admin/www/auth/authority.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority.tcl,v diff -u -N -r1.23 -r1.24 --- openacs-4/packages/acs-admin/www/auth/authority.tcl 7 Aug 2017 23:47:45 -0000 1.23 +++ openacs-4/packages/acs-admin/www/auth/authority.tcl 19 Jan 2018 12:57:28 -0000 1.24 @@ -214,6 +214,7 @@ -array element_array } -after_submit { ad_returnredirect [export_vars -base [ad_conn url] { authority_id }] + ad_script_abort } # Show recent batch jobs for existing authorities Index: openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl 7 Aug 2017 23:47:46 -0000 1.3 +++ openacs-4/packages/acs-automated-testing/www/admin/record-test.tcl 19 Jan 2018 12:57:28 -0000 1.4 @@ -197,6 +197,7 @@ set version_id [apm_version_id_from_package_key $package_key] apm_mark_version_for_reload $version_id files ad_returnredirect $return_url + ad_script_abort } Index: openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl 7 Aug 2017 23:47:58 -0000 1.10 +++ openacs-4/packages/acs-subsite/www/admin/host-node-map/index.tcl 19 Jan 2018 12:57:28 -0000 1.11 @@ -84,6 +84,7 @@ db_dml host_node_insert {} } -after_submit { ad_returnredirect index + ad_script_abort } # Local variables: Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl 2 Nov 2005 20:30:22 -0000 1.8 +++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-add-edit.tcl 19 Jan 2018 12:59:09 -0000 1.9 @@ -182,6 +182,7 @@ set category_ids [category::get_mapped_categories $course_id] } -after_submit { ad_returnredirect "$return_url" + ad_script_abort } Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-categorize.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-categorize.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-categorize.tcl 2 Nov 2005 20:30:22 -0000 1.2 +++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-categorize.tcl 19 Jan 2018 12:59:09 -0000 1.3 @@ -31,4 +31,5 @@ category::map_object -remove_old -object_id $course_id $category_ids } -after_submit { ad_returnredirect "course-list" + ad_script_abort } Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-delete.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-delete.tcl 2 Nov 2005 20:30:22 -0000 1.2 +++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-delete.tcl 19 Jan 2018 12:59:09 -0000 1.3 @@ -30,4 +30,5 @@ dotlrn_catalog::course_delete -item_id $object_id } -after_submit { ad_returnredirect "course-list" -} \ No newline at end of file + ad_script_abort +} Index: openacs-4/packages/dotlrn-ecommerce/lib/section.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/section.tcl,v diff -u -N -r1.40 -r1.41 --- openacs-4/packages/dotlrn-ecommerce/lib/section.tcl 23 Nov 2007 20:45:21 -0000 1.40 +++ openacs-4/packages/dotlrn-ecommerce/lib/section.tcl 19 Jan 2018 12:59:09 -0000 1.41 @@ -897,7 +897,8 @@ set return_url "one-section?section_id=$section_id" } - ad_returnredirect $return_url + ad_returnredirect $return_url + ad_script_abort } Index: openacs-4/packages/dotlrn-ecommerce/www/email-applicants.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/email-applicants.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/email-applicants.tcl 16 Aug 2005 10:32:30 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/email-applicants.tcl 19 Jan 2018 12:59:10 -0000 1.2 @@ -18,6 +18,7 @@ if {[empty_string_p $rel_id]} { ad_returnredirect $return_url + ad_script_abort } permission::require_permission -object_id [ad_conn package_id] -privilege admin @@ -64,4 +65,5 @@ } \ -after_submit { ad_returnredirect $return_url + ad_script_abort } Index: openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl,v diff -u -N -r1.13 -r1.14 --- openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl 11 Aug 2006 11:14:11 -0000 1.13 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl 19 Jan 2018 12:59:10 -0000 1.14 @@ -246,4 +246,5 @@ set return_url "course-info?course_id=$revision_id&course_name=$course_name&course_key=$course_key" } ad_returnredirect "$return_url" -} \ No newline at end of file + ad_script_abort +} Index: openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl 10 Aug 2005 23:56:08 -0000 1.2 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-delete.tcl 19 Jan 2018 12:59:10 -0000 1.3 @@ -39,6 +39,7 @@ dotlrn_catalog::course_delete -item_id $object_id } -after_submit { ad_returnredirect "course-list" + ad_script_abort } -} \ No newline at end of file +} Index: openacs-4/packages/dotlrn-ecommerce/www/admin/gwu-section-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/gwu-section-new.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/dotlrn-ecommerce/www/admin/gwu-section-new.tcl 16 Jul 2005 12:51:06 -0000 1.6 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/gwu-section-new.tcl 19 Jan 2018 12:59:10 -0000 1.7 @@ -344,10 +344,11 @@ category::map_object -remove_old -object_id $community_id $categories } -after_submit { ad_returnredirect $return_url + ad_script_abort } # Used by en_US version of new_class_instance message set class_instances_pretty_name [parameter::get -localize -parameter class_instances_pretty_name] set page_title "Add Section" -set context [list $page_title] \ No newline at end of file +set context [list $page_title] Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl 6 Jul 2005 04:58:13 -0000 1.3 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-group-purchase.tcl 19 Jan 2018 12:59:10 -0000 1.4 @@ -152,9 +152,10 @@ # set referer [export_vars -base [ad_conn package_url]admin/course-info {course_id}] ad_returnredirect -message "Added $num_members from $name" [export_vars -base "ecommerce/shopping-cart-add" { product_id { user_id $patron_id } { participant_id $group_id } { item_count $num_members } }] -# ad_returnredirect -message "Added $num_members from $name" [export_vars -base membership-add { user_id {user_ids:multiple $new_users} section_id {community_id $section_community_id} referer }] + # ad_returnredirect -message "Added $num_members from $name" [export_vars -base membership-add { user_id {user_ids:multiple $new_users} section_id {community_id $section_community_id} referer }] + ad_script_abort } set page_title "Add Group to $course_name: $section_name" set context [list $page_title] -ad_return_template \ No newline at end of file +ad_return_template Index: openacs-4/packages/dotlrn-ecommerce/www/admin/section-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/section-delete.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/dotlrn-ecommerce/www/admin/section-delete.tcl 11 Aug 2005 01:04:18 -0000 1.7 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/section-delete.tcl 19 Jan 2018 12:59:10 -0000 1.8 @@ -43,7 +43,8 @@ } -after_submit { ad_returnredirect $return_url + ad_script_abort } } else { set content "This section currently has participants and cannot be removed." -} \ No newline at end of file +} Index: openacs-4/packages/dotlrn-ecommerce/www/admin/section-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/section-edit.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/admin/section-edit.tcl 31 May 2005 22:04:54 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/admin/section-edit.tcl 19 Jan 2018 12:59:10 -0000 1.2 @@ -136,9 +136,10 @@ set return_url [export_vars -base "course-info" {course_id}] } ad_returnredirect $return_url + ad_script_abort } set page_title "Edit Section" set context [list $page_title] -ad_return_template \ No newline at end of file +ad_return_template Index: openacs-4/packages/dotlrn-ecommerce/www/manage/course-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/course-add-edit.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/manage/course-add-edit.tcl 2 Sep 2008 21:54:47 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/manage/course-add-edit.tcl 19 Jan 2018 12:59:10 -0000 1.2 @@ -234,4 +234,5 @@ set return_url "course-info?course_id=$revision_id&course_name=$course_name&course_key=$course_key" } ad_returnredirect "$return_url" -} \ No newline at end of file + ad_script_abort +} Index: openacs-4/packages/dotlrn-ecommerce/www/manage/course-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/course-delete.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/manage/course-delete.tcl 2 Sep 2008 21:54:48 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/manage/course-delete.tcl 19 Jan 2018 12:59:10 -0000 1.2 @@ -39,6 +39,7 @@ dotlrn_catalog::course_delete -item_id $object_id } -after_submit { ad_returnredirect "course-list" + ad_script_abort } -} \ No newline at end of file +} Index: openacs-4/packages/dotlrn-ecommerce/www/manage/section-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/section-delete.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/manage/section-delete.tcl 2 Sep 2008 21:54:48 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/manage/section-delete.tcl 19 Jan 2018 12:59:10 -0000 1.2 @@ -43,7 +43,8 @@ } -after_submit { ad_returnredirect $return_url + ad_script_abort } } else { set content "This section currently has participants and cannot be removed." -} \ No newline at end of file +} Index: openacs-4/packages/dotlrn-ecommerce/www/manage/section-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/section-edit.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dotlrn-ecommerce/www/manage/section-edit.tcl 2 Sep 2008 21:54:48 -0000 1.1 +++ openacs-4/packages/dotlrn-ecommerce/www/manage/section-edit.tcl 19 Jan 2018 12:59:10 -0000 1.2 @@ -136,9 +136,10 @@ set return_url [export_vars -base "course-info" {course_id}] } ad_returnredirect $return_url + ad_script_abort } set page_title "Edit Section" set context [list $page_title] -ad_return_template \ No newline at end of file +ad_return_template Index: openacs-4/packages/dotfolio/www/admin/group-del.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/admin/group-del.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/dotfolio/www/admin/group-del.tcl 29 Sep 2005 15:53:54 -0000 1.4 +++ openacs-4/packages/dotfolio/www/admin/group-del.tcl 19 Jan 2018 13:01:14 -0000 1.5 @@ -34,4 +34,5 @@ } \ -after_submit { ad_returnredirect "groups" + ad_script_abort }