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}