Index: openacs-4/packages/assessment/lib/item-show-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-mc.tcl,v
diff -u -r1.7.2.3 -r1.7.2.4
--- openacs-4/packages/assessment/lib/item-show-mc.tcl 10 Mar 2006 11:29:36 -0000 1.7.2.3
+++ openacs-4/packages/assessment/lib/item-show-mc.tcl 11 Mar 2006 19:54:10 -0000 1.7.2.4
@@ -22,7 +22,6 @@
foreach one_choice $choices {
util_unlist $one_choice choice_id title correct_answer_p feedback_text selected_p percent_score sort_order fixed_position answer_value content_rev_id content_filename content_name
incr count
- regsub -all \\$ $title {\\$ } title
set options ""
if {$count < $total} {
append options " "
@@ -33,9 +32,9 @@
append options " "
if {$correct_answer_p == "t"} {
- append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice] $count\"\} \{value \" $title$options\"\}\}\n"
+ append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice] $count\"\} \{value \" \$title$options\"\}\}\n"
} else {
- append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice] $count\"\} \{value \" $title$options\"\}\}\n"
+ append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice] $count\"\} \{value \" \$title$options\"\}\}\n"
}
if {![empty_string_p $content_rev_id]} {