Index: openacs-4/packages/dotlrn-admin/www/admin/add-instructor-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/add-instructor-3.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-admin/www/admin/add-instructor-3.tcl	20 Aug 2004 14:44:22 -0000	1.1
+++ openacs-4/packages/dotlrn-admin/www/admin/add-instructor-3.tcl	21 Jan 2018 00:48:30 -0000	1.2
@@ -38,4 +38,11 @@
 dotlrn_community::add_user -rel_type dotlrn_instructor_rel $community_id $user_id
 
 ad_returnredirect $referer
+ad_script_abort
 
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:
Index: openacs-4/packages/dotlrn-admin/www/admin/browse-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/browse-toggle.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-admin/www/admin/browse-toggle.tcl	20 Aug 2004 14:44:22 -0000	1.1
+++ openacs-4/packages/dotlrn-admin/www/admin/browse-toggle.tcl	21 Jan 2018 00:48:30 -0000	1.2
@@ -32,5 +32,11 @@
 
 util_memoize_flush_regexp  $user_id
 ad_returnredirect $referer
+ad_script_abort
 
-
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:
Index: openacs-4/packages/dotlrn-admin/www/admin/guest-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/guest-toggle.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/dotlrn-admin/www/admin/guest-toggle.tcl	20 Aug 2004 14:44:22 -0000	1.1
+++ openacs-4/packages/dotlrn-admin/www/admin/guest-toggle.tcl	21 Jan 2018 00:48:30 -0000	1.2
@@ -31,8 +31,8 @@
         -user_id $user_id \
         -value $guest_p
 
-
 util_memoize_flush_regexp  $user_id
+
 ad_returnredirect $referer
+ad_script_abort
 
-
Index: openacs-4/packages/dotlrn-admin/www/admin/password-update-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/password-update-2.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/dotlrn-admin/www/admin/password-update-2.tcl	21 Jan 2018 00:38:38 -0000	1.4
+++ openacs-4/packages/dotlrn-admin/www/admin/password-update-2.tcl	21 Jan 2018 00:48:30 -0000	1.5
@@ -49,8 +49,8 @@
 }
 
 set system_name [ad_system_name]
-set admin_subject "[_ dotlrn.lt_The_following_email_w]"
-set admin_message "[_ dotlrn.lt_The_following_email_w_1]"
+set admin_subject [_ dotlrn.lt_The_following_email_w]
+set admin_message [_ dotlrn.lt_The_following_email_w_1]
 
 ad_try {
     acs_mail_lite::send \
@@ -61,8 +61,8 @@
 } on error {errorMsg} {
     ns_log Error "Error sending email from password-update-2.tcl $errorMsg"
     ad_return_error \
-	"[_ dotlrn.Error_sending_mail]" \
-	"[_ dotlrn.lt_There_was_an_error_se_1]"
+	[_ dotlrn.Error_sending_mail] \
+	[_ dotlrn.lt_There_was_an_error_se_1]
     ad_script_abort
 }
 
@@ -71,3 +71,11 @@
 }
 
 ad_returnredirect $return_url
+ad_script_abort
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:
Index: openacs-4/packages/dotlrn-admin/www/admin/site-wide-admin-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/site-wide-admin-toggle.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/site-wide-admin-toggle.tcl	28 Jun 2015 12:09:34 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/site-wide-admin-toggle.tcl	21 Jan 2018 00:48:30 -0000	1.3
@@ -14,8 +14,6 @@
 #  details.
 #
 
-# dotlrn/www/admin/site-wide-admin-toggle.tcl
-
 ad_page_contract {
     @author yon (yon@openforce.net)
     @creation-date Jan 12, 2002
@@ -42,6 +40,13 @@
 }
 
 util_memoize_flush_regexp  $user_id
+
 ad_returnredirect $referer
+ad_script_abort
 
-
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:
Index: openacs-4/packages/dotlrn-admin/www/admin/term.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/term.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-admin/www/admin/term.tcl	28 Jun 2015 12:09:34 -0000	1.3
+++ openacs-4/packages/dotlrn-admin/www/admin/term.tcl	21 Jan 2018 00:48:30 -0000	1.4
@@ -86,10 +86,11 @@
 
     if {$term_id != -1} {
         ad_returnredirect [export_vars -base term {term_id department_key}]
+	ad_script_abort
     }
 }
 
-if {(![info exists referer] || $referer eq "")} {
+if {![info exists referer] || $referer eq ""} {
     set referer "terms"
 }
 
@@ -117,6 +118,16 @@
 }
 
 # Used by the en_US version of the no_class_instances message in the adp
-set class_instances_pretty_plural [parameter::get -package_id [dotlrn::get_package_id] -localize -parameter class_instances_pretty_plural]
+set class_instances_pretty_plural [parameter::get \
+				       -package_id [dotlrn::get_package_id] \
+				       -localize \
+				       -parameter class_instances_pretty_plural]
 
 ad_return_template
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:
Index: openacs-4/packages/dotlrn-admin/www/admin/unarchive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/unarchive.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/unarchive.tcl	28 Jun 2015 12:09:34 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/unarchive.tcl	21 Jan 2018 00:48:30 -0000	1.3
@@ -36,4 +36,13 @@
 } else {
     ad_return -code error "community id expected to unarchive a community"
 }
+
 ad_returnredirect $referer
+ad_script_abort
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: