Index: openacs-4/packages/assessment/lib/finish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/finish.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/assessment/lib/finish.tcl 7 Aug 2017 23:48:03 -0000 1.4 +++ openacs-4/packages/assessment/lib/finish.tcl 20 Jan 2018 22:38:28 -0000 1.5 @@ -23,7 +23,7 @@ } -set page_title "[_ assessment.Response_Submitted]" +set page_title [_ assessment.Response_Submitted] set context [list $page_title] # Raise finish_object event @@ -33,20 +33,22 @@ -if { ([info exists next_asm] && $next_asm ne "") } { +if { [info exists next_asm] && $next_asm ne "" } { ad_returnredirect "assessment?assessment_id=$next_asm" + ad_script_abort } set value [parameter::get -parameter "RegistrationId" -package_id [subsite::main_site_id]] -if {[info exists return_url]} { +if {[info exists return_url]} { if { $return_url ne ""} { ad_returnredirect "$return_url" } else { if {$value eq $assessment_id} { ad_returnredirect "/pvt/home" } - } + } + ad_script_abort } ad_return_template