Index: openacs-4/packages/dotlrn/www/applet-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-add.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/applet-add.tcl	7 Aug 2017 23:48:09 -0000	1.11
+++ openacs-4/packages/dotlrn/www/applet-add.tcl	19 Jan 2018 14:38:45 -0000	1.12
@@ -39,8 +39,8 @@
 dotlrn_community::add_applet_to_community $community_id $applet_key
 
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/applet-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-remove.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/applet-remove.tcl	7 Aug 2017 23:48:09 -0000	1.11
+++ openacs-4/packages/dotlrn/www/applet-remove.tcl	19 Jan 2018 14:38:45 -0000	1.12
@@ -32,8 +32,8 @@
 
 # Get back to where you once belonged
 ad_returnredirect community-applets?community_id=$community_id
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/approve.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/approve.tcl	7 Aug 2017 23:48:09 -0000	1.10
+++ openacs-4/packages/dotlrn/www/approve.tcl	19 Jan 2018 14:38:45 -0000	1.11
@@ -43,8 +43,8 @@
 }
 
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/class-term-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/class-term-change.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/class-term-change.tcl	7 Aug 2017 23:48:09 -0000	1.3
+++ openacs-4/packages/dotlrn/www/class-term-change.tcl	19 Jan 2018 14:38:45 -0000	1.4
@@ -52,6 +52,7 @@
     db_dml update_term_info "update dotlrn_class_instances set term_id = :term_id where class_instance_id = :class_instance_id"
     
     ad_returnredirect "$referer"
+    ad_script_abort
 }
 
 set class_name $pretty_name
Index: openacs-4/packages/dotlrn/www/community-edit-revert.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit-revert.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/community-edit-revert.tcl	7 Aug 2017 23:48:09 -0000	1.10
+++ openacs-4/packages/dotlrn/www/community-edit-revert.tcl	19 Jan 2018 14:38:45 -0000	1.11
@@ -54,8 +54,8 @@
 }
 
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/community-member.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-member.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/dotlrn/www/community-member.tcl	7 Aug 2017 23:48:09 -0000	1.21
+++ openacs-4/packages/dotlrn/www/community-member.tcl	19 Jan 2018 14:38:45 -0000	1.22
@@ -46,7 +46,10 @@
 }
 
 if {[dotlrn_community::get_community_id] != $community_id} {
-    ad_returnredirect [export_vars -base "[dotlrn_community::get_community_url $community_id]community-member" {user_id community_id}]
+    ad_returnredirect [export_vars -base "[dotlrn_community::get_community_url $community_id]community-member" {
+        user_id community_id
+    }]
+    ad_script_abort
 }
 
 auth::require_login
Index: openacs-4/packages/dotlrn/www/configure-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-2.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/www/configure-2.tcl	7 Aug 2017 23:48:09 -0000	1.12
+++ openacs-4/packages/dotlrn/www/configure-2.tcl	19 Jan 2018 14:38:45 -0000	1.13
@@ -31,14 +31,14 @@
 # Check if this is a community type level thing
 if {[parameter::get -parameter community_type_level_p] == 1} {
     ad_returnredirect "one-community-type"
-    return
+    ad_script_abort
 }
 
 portal::configure_dispatch -portal_id $portal_id -form $form
 
 ad_returnredirect "configure#$anchor"
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/configure-element-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-element-2.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn/www/configure-element-2.tcl	7 Aug 2017 23:48:09 -0000	1.13
+++ openacs-4/packages/dotlrn/www/configure-element-2.tcl	19 Jan 2018 14:38:45 -0000	1.14
@@ -29,7 +29,7 @@
 # Check if this is a community type level thing
 if {[parameter::get -parameter community_type_level_p] == 1} {
     ad_returnredirect "one-community-type"
-    return
+    ad_script_abort
 }
 
 # Make sure user is logged in
@@ -38,8 +38,8 @@
 portal::set_element_param $element_id $key $value
 
 ad_returnredirect "."
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/configure-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure-element.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/www/configure-element.tcl	7 Aug 2017 23:48:09 -0000	1.23
+++ openacs-4/packages/dotlrn/www/configure-element.tcl	19 Jan 2018 14:38:45 -0000	1.24
@@ -45,13 +45,15 @@
         portal::configure_element $element_id $op "one-community?page_num=$page_num"
     } else {
         ad_returnredirect "one-community?page_num=$page_num"
+        ad_script_abort
     }
 } else {
 
     set portal_id [dotlrn::get_portal_id -user_id $user_id]
     if {$portal_id eq ""} {
         # do something
         ad_returnredirect "./"
+        ad_script_abort
     } else {
         set rendered_page [portal::configure_element $element_id $op "index?page_num=$page_num"]
     }
Index: openacs-4/packages/dotlrn/www/configure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/configure.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/www/configure.tcl	7 Aug 2017 23:48:09 -0000	1.23
+++ openacs-4/packages/dotlrn/www/configure.tcl	19 Jan 2018 14:38:45 -0000	1.24
@@ -33,13 +33,13 @@
 
     # at a community type level, redirect
     ad_returnredirect "one-community-type"
-    return
+    ad_script_abort
 
 } elseif {[parameter::get -parameter community_level_p] == 1} {
 
     # at a community, only admins can configure a comm's portal
     ad_returnredirect "one-community"
-    return
+    ad_script_abort
 
 } else {
 
Index: openacs-4/packages/dotlrn/www/deregister.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/deregister.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/deregister.tcl	7 Aug 2017 23:48:09 -0000	1.11
+++ openacs-4/packages/dotlrn/www/deregister.tcl	19 Jan 2018 14:38:45 -0000	1.12
@@ -72,8 +72,8 @@
 }
 
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/element-rename.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/element-rename.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/element-rename.tcl	7 Aug 2017 23:48:09 -0000	1.5
+++ openacs-4/packages/dotlrn/www/element-rename.tcl	19 Jan 2018 14:38:45 -0000	1.6
@@ -19,9 +19,10 @@
 template::form create element_rename
 
 if {[template::form is_valid element_rename]} {
-       ns_log notice "-element_id $element_id  -pretty_name $pretty_name"
-       portal::set_pretty_name -element_id $element_id  -pretty_name $pretty_name
-       ad_returnredirect "element-list"
+    ns_log notice "-element_id $element_id  -pretty_name $pretty_name"
+    portal::set_pretty_name -element_id $element_id  -pretty_name $pretty_name
+    ad_returnredirect "element-list"
+    ad_script_abort
 }
 
 
Index: openacs-4/packages/dotlrn/www/join-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/join-policy-toggle.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.11
+++ openacs-4/packages/dotlrn/www/join-policy-toggle.tcl	19 Jan 2018 14:38:45 -0000	1.12
@@ -45,8 +45,8 @@
 db_dml update_join_policy {}
 
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/member-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-3.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/member-add-3.tcl	7 Aug 2017 23:48:09 -0000	1.15
+++ openacs-4/packages/dotlrn/www/member-add-3.tcl	19 Jan 2018 14:38:45 -0000	1.16
@@ -84,7 +84,9 @@
         }
     }
 }
+
 ad_returnredirect $referer
+ad_script_abort
 
 # Local variables:
 #    mode: tcl
Index: openacs-4/packages/dotlrn/www/member-email-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-email-toggle.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/member-email-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.3
+++ openacs-4/packages/dotlrn/www/member-email-toggle.tcl	19 Jan 2018 14:38:45 -0000	1.4
@@ -20,6 +20,8 @@
 db_dml toggle_member_email { }
 
 ad_returnredirect "one-community-admin"
+ad_script_abort
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/members-chunk-table.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk-table.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/dotlrn/www/members-chunk-table.tcl	7 Aug 2017 23:48:09 -0000	1.30
+++ openacs-4/packages/dotlrn/www/members-chunk-table.tcl	19 Jan 2018 14:38:45 -0000	1.31
@@ -177,6 +177,7 @@
 	    set return_url [ns_conn url]
 	}
         ad_returnredirect $return_url
+        ad_script_abort
     }
 
 }
Index: openacs-4/packages/dotlrn/www/members-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn/www/members-chunk.tcl	7 Aug 2017 23:48:09 -0000	1.23
+++ openacs-4/packages/dotlrn/www/members-chunk.tcl	19 Jan 2018 14:38:45 -0000	1.24
@@ -107,6 +107,7 @@
 	    set return_url [ns_conn url]
 	}
         ad_returnredirect $return_url
+        ad_script_abort
     }
 
     set selected_users_options [list]
Index: openacs-4/packages/dotlrn/www/members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/dotlrn/www/members.tcl	15 Sep 2017 07:28:53 -0000	1.36
+++ openacs-4/packages/dotlrn/www/members.tcl	19 Jan 2018 14:38:45 -0000	1.37
@@ -237,6 +237,7 @@
             set return_url [ns_conn url]
         }
         ad_returnredirect $return_url
+        ad_script_abort
     }
 
 }
Index: openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl	7 Aug 2017 23:48:09 -0000	1.13
+++ openacs-4/packages/dotlrn/www/one-community-portal-configure-2.tcl	19 Jan 2018 14:38:45 -0000	1.14
@@ -28,12 +28,11 @@
 ns_log warning "starting one-community-portal-configure"
 
 ns_log warning "about to call dispatch"
-
 portal::configure_dispatch -portal_id $portal_id -form [ns_getform]
 
 ad_returnredirect "one-community-portal-configure?portal_id=$portal_id&referer=$return_url#$anchor"
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.5
+++ openacs-4/packages/dotlrn/www/privacy-policy-toggle.tcl	19 Jan 2018 14:38:45 -0000	1.6
@@ -47,8 +47,8 @@
 }
 
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/reject.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/reject.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/reject.tcl	7 Aug 2017 23:48:09 -0000	1.10
+++ openacs-4/packages/dotlrn/www/reject.tcl	19 Jan 2018 14:38:45 -0000	1.11
@@ -42,8 +42,8 @@
     dotlrn_community::membership_reject -community_id $community_id -user_id $uid
 }
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.5
+++ openacs-4/packages/dotlrn/www/spam-policy-toggle.tcl	19 Jan 2018 14:38:45 -0000	1.6
@@ -48,6 +48,7 @@
 util_memoize_flush_regexp "${community_id}(.*)dotlrn_spam_community"
 
 ad_returnredirect $referer
+ad_script_abort
 
 # Local variables:
 #    mode: tcl
Index: openacs-4/packages/dotlrn/www/spam.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/spam.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/dotlrn/www/spam.tcl	30 Sep 2017 18:12:52 -0000	1.33
+++ openacs-4/packages/dotlrn/www/spam.tcl	19 Jan 2018 14:38:45 -0000	1.34
@@ -59,6 +59,8 @@
 	    if {([info exists community_id] && $community_id ne "")} {
 		# This is call using the old URL reference
 		ad_returnredirect "spam-recipients?referer=$referer"
+                ad_script_abort
+                
 	    } else {
 		ad_complain "[_ dotlrn.Must_specify_recipients]"
 	    }
Index: openacs-4/packages/dotlrn/www/subscribe-members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subscribe-members.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn/www/subscribe-members.tcl	7 Aug 2017 23:48:09 -0000	1.6
+++ openacs-4/packages/dotlrn/www/subscribe-members.tcl	19 Jan 2018 14:38:45 -0000	1.7
@@ -49,6 +49,7 @@
 }
 
 ad_returnredirect $return_url
+ad_script_abort
 
 # Local variables:
 #    mode: tcl
Index: openacs-4/packages/dotlrn/www/unsubscribe-members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/unsubscribe-members.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/unsubscribe-members.tcl	7 Aug 2017 23:48:09 -0000	1.5
+++ openacs-4/packages/dotlrn/www/unsubscribe-members.tcl	19 Jan 2018 14:38:45 -0000	1.6
@@ -30,6 +30,7 @@
 }
 
 ad_returnredirect $return_url
+ad_script_abort
 
 # Local variables:
 #    mode: tcl
Index: openacs-4/packages/dotlrn/www/user-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-3.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/dotlrn/www/user-add-3.tcl	7 Aug 2017 23:48:09 -0000	1.14
+++ openacs-4/packages/dotlrn/www/user-add-3.tcl	19 Jan 2018 14:38:45 -0000	1.15
@@ -49,8 +49,8 @@
 }
 
 ad_returnredirect $referer
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/weblog-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/weblog-new.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/weblog-new.tcl	7 Aug 2017 23:48:09 -0000	1.7
+++ openacs-4/packages/dotlrn/www/weblog-new.tcl	19 Jan 2018 14:38:45 -0000	1.8
@@ -69,13 +69,8 @@
 }
 
 ad_returnredirect "[dotlrn_community::get_url -package_id $weblog_package_id]/forum-view?forum_id=$forum_id"
+ad_script_abort
 
-
-
-
-
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl	7 Aug 2017 23:48:09 -0000	1.16
+++ openacs-4/packages/dotlrn/www/admin/add-instructor-3.tcl	19 Jan 2018 14:38:45 -0000	1.17
@@ -40,9 +40,11 @@
 # Add the relation
 dotlrn_community::add_user -rel_type dotlrn_instructor_rel $community_id $user_id
 
-ad_returnredirect [export_vars -base ../member-email-confirm {{return_url $referer} community_id user_id}]
+ad_returnredirect [export_vars -base ../member-email-confirm {
+    {return_url $referer} community_id user_id
+}]
+ad_script_abort
 
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/browse-toggle.tcl	19 Jan 2018 14:38:45 -0000	1.6
@@ -33,10 +33,10 @@
 dotlrn::set_can_browse -user_id $user_id -can_browse\=$can_browse_p
 
 util_memoize_flush_regexp  $user_id
+
 ad_returnredirect $referer
+ad_script_abort
 
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/guest-toggle.tcl	19 Jan 2018 14:38:45 -0000	1.6
@@ -37,9 +37,8 @@
 
 util_memoize_flush_regexp  $user_id
 ad_returnredirect $referer
+ad_script_abort
 
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	7 Aug 2017 23:48:09 -0000	1.15
+++ openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	19 Jan 2018 14:38:45 -0000	1.16
@@ -47,10 +47,10 @@
 }
 
 util_memoize_flush_regexp $user_id
+
 ad_returnredirect $referer
+ad_script_abort
 
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/admin/toolbar-actions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/toolbar-actions.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/toolbar-actions.tcl	7 Aug 2017 23:48:09 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/toolbar-actions.tcl	19 Jan 2018 14:38:45 -0000	1.5
@@ -55,6 +55,8 @@
 
 
 ad_returnredirect $url
+ad_script_abort
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/dotlrn/www/admin/unarchive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/unarchive.tcl,v
diff -u -r1.5 -r1.6
Binary files differ
Index: openacs-4/packages/dotlrn/www/admin/users-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-search.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/dotlrn/www/admin/users-search.tcl	7 Aug 2017 23:48:09 -0000	1.31
+++ openacs-4/packages/dotlrn/www/admin/users-search.tcl	19 Jan 2018 14:38:45 -0000	1.32
@@ -68,15 +68,19 @@
     switch -exact $search_action {
         "spam" {
             ad_returnredirect [export_vars -base users-spam {{users $selected_users}}]
+            ad_script_abort
         }
         "add_to_community" {
             ad_returnredirect [export_vars -base users-add-to-community {{users $selected_users}}]
+            ad_script_abort
         }
         "deactivate" {
             ad_returnredirect [export_vars -base users-deactivate {{users $selected_users}}]
+            ad_script_abort
         }
         "delete" {
             ad_returnredirect [export_vars -base users-delete {{users $selected_users}}]
+            ad_script_abort
         }
     }
 }