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.5 -r1.6 --- openacs-4/packages/assessment/lib/item-show-mc.tcl 18 Apr 2005 10:19:13 -0000 1.5 +++ openacs-4/packages/assessment/lib/item-show-mc.tcl 5 May 2005 18:52:14 -0000 1.6 @@ -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]] +set actions [list [list "[_ acs-kernel.common_Edit]" edit] [list "[_ assessment.add_item_type_mc_existing]" existing] [list "Add More Choices" more]] ad_form -name item_show_mc -mode display -action item-edit-mc -export { assessment_id section_id as_item_id } -actions $actions -form { @@ -24,7 +24,7 @@ incr count set options "" if {$count < $total} { - append options " \\\"[_" + append options " \\\"[_" } if {$count > 1} { append options " \\\"[_" @@ -49,3 +49,6 @@ } 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}