Index: openacs-4/packages/assessment/www/finish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/finish.tcl,v diff -u -N -r1.6 -r1.6.2.1 --- openacs-4/packages/assessment/www/finish.tcl 9 May 2005 21:58:24 -0000 1.6 +++ openacs-4/packages/assessment/www/finish.tcl 31 May 2005 23:13:01 -0000 1.6.2.1 @@ -8,16 +8,15 @@ session_id:integer,notnull assessment_id:integer,notnull return_url:optional - next_asm:optional } -properties { - context:onevalue + context_bar:onevalue page_title:onevalue } set user_id [ad_conn user_id] + if { $user_id != 0} { db_dml update_session {update as_sessions set subject_id=:user_id where session_id=:session_id} - } if {[info exists return_url]} { @@ -26,11 +25,7 @@ } } set page_title "[_ assessment.Response_Submitted]" -set context [list $page_title] +set context_bar [ad_context_bar $page_title] -if { [exists_and_not_null next_asm ] } { - ad_returnredirect "assessment?assessment_id=$next_asm" -} - ad_return_template