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 -r1.7.2.1
--- openacs-4/packages/assessment/lib/item-show-mc.tcl 6 May 2005 15:46:12 -0000 1.7
+++ openacs-4/packages/assessment/lib/item-show-mc.tcl 31 May 2005 23:13:00 -0000 1.7.2.1
@@ -3,7 +3,7 @@
db_1row item_type_data {}
set boolean_options [list [list "[_ assessment.yes]" t] [list "[_ assessment.no]" f]]
-set actions [list [list "[_ acs-kernel.common_Edit]" edit] [list "[_ assessment.add_item_type_mc_existing]" existing] [list "Add More Choices" more]]
+set actions [list [list "[_ acs-kernel.common_Edit]" edit] [list "[_ assessment.add_item_type_mc_existing]" existing]]
ad_form -name item_show_mc -mode display -action item-edit-mc -export { assessment_id section_id as_item_id } -actions $actions -form {
@@ -24,12 +24,12 @@
incr count
set options ""
if {$count < $total} {
- append options " "
+ append options " "
}
if {$count > 1} {
append options " "
}
- append options " "
+ append options " "
if {$correct_answer_p == "t"} {
append ad_form_code "\{infotxt.$choice_id:text(inform) \{label \"[_ assessment.Choice] $count\"\} \{value \" $title$options\"\}\}\n"
@@ -49,6 +49,3 @@
}
append ad_form_code "\}"
eval ad_form -extend -name item_show_mc $ad_form_code
-# pass along number of choices
-set num_choices $total
-eval ad_form -extend -name item_show_mc -export {num_choices}