Index: openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 26 Jan 2005 11:06:45 -0000 1.13 +++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 9 Feb 2005 10:42:50 -0000 1.14 @@ -163,9 +163,9 @@ set title [as::assessment::display_content -content_id $content_rev_id -filename $content_filename -content_type $content_type -title $title] set pos [lsearch -exact -integer $defaults $choice_id] if {$pos>-1 && $correct_answer_p == "t" && $show_feedback != "incorrect"} { - lappend choice_list [list "$title $feedback_text" $choice_id] + lappend choice_list [list "$title $feedback_text" $choice_id] } elseif {$pos>-1 && $correct_answer_p == "f" && $show_feedback != "correct"} { - lappend choice_list [list "$title $feedback_text" $choice_id] + lappend choice_list [list "$title $feedback_text" $choice_id] } else { lappend choice_list [list $title $choice_id] }