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}