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.15 -r1.16
--- openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 21 Feb 2005 14:32:56 -0000 1.15
+++ openacs-4/packages/assessment/tcl/as-item-type-mc-procs.tcl 2 Mar 2005 18:10:29 -0000 1.16
@@ -163,11 +163,15 @@
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]
- } else {
- lappend choice_list [list $title $choice_id]
+ lappend choice_list [list "$title $feedback_text" $choice_id]
+ } else {
+ if {$correct_answer_p == "t" && $show_feedback != "incorrect" && $show_feedback != "correct"} {
+ lappend choice_list [list "$title " $choice_id]
+ } else {
+ lappend choice_list [list $title $choice_id]
+ }
}
}
}