Index: openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl	7 Aug 2017 23:48:04 -0000	1.7
+++ openacs-4/packages/assessment/www/asm-admin/toggle-publish.tcl	20 Jan 2018 22:38:28 -0000	1.8
@@ -19,7 +19,7 @@
 # returns list of empty sections
 set empty_sections [db_list count_questions ""]
 
-if { ($empty_sections eq "") || ($old_publish_status eq "live") } {
+if { $empty_sections eq "" || $old_publish_status eq "live" } {
     # if no empty sections, or if we're un-publishing, then proceed
     db_dml toggle_publish ""
     set message "Set to [ad_decode $old_publish_status "live" invisible visible]"
@@ -30,7 +30,9 @@
 if {$return_url eq ""} {
     set return_url [export_vars -base one-a {assessment_id}]
 }
+
 ad_returnredirect -message $message $return_url
+ad_script_abort
 
 # Local variables:
 #    mode: tcl