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.21.2.4 -r1.21.2.5 --- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 4 Jul 2007 01:42:08 -0000 1.21.2.4 +++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 5 Jul 2007 18:32:36 -0000 1.21.2.5 @@ -197,7 +197,6 @@ db_foreach choices {} { incr total set title [as::assessment::display_content -content_id $content_rev_id -filename $content_filename -content_type $content_type -title $title] -selected_p = '${selected_p}' correct_answer_p = '${correct_answer_p}'" if {$show_feedback ne "" && $show_feedback ne "none"} { set pos [lsearch -exact -integer $defaults $choice_id] if {$pos > -1 && $correct_answer_p == "t" && $show_feedback != "incorrect"} {