Index: openacs-4/packages/assessment/www/session.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/assessment/www/session.tcl 24 Sep 2004 11:22:02 -0000 1.5 +++ openacs-4/packages/assessment/www/session.tcl 24 Sep 2004 13:27:55 -0000 1.6 @@ -29,7 +29,7 @@ set maxscore $itemmaxscore set score 0 set item_correct 1 - set choice_html {} + set choice_html "
Student ResponseCorrect AnswerAnswer Choices
" db_foreach choices {} { if {[string length "$choice_id_answer"]} {set notanswered 0} if {$correct_answer_p == {t}} { set correct_answer_bool 1 } else { set correct_answer_bool 0 }
[_ assessment.Student_Response][_ assessment.Correct_Answer][_ assessment.Answer_Choices]