Index: openacs-4/packages/assessment/lib/section-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-items.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/lib/section-items.tcl	24 Dec 2004 15:32:38 -0000	1.4
+++ openacs-4/packages/assessment/lib/section-items.tcl	26 Jan 2005 18:18:25 -0000	1.5
@@ -2,12 +2,15 @@
     {section_id:text(hidden) {value $section_id}}
 }
 
-db_multirow -extend { presentation_type html } items section_items {} {
+db_multirow -extend { presentation_type html mc_type} items section_items {} {
     set presentation_type [as::item_form::add_item_to_form -name admin_section -section_id $section_id -item_id $as_item_id]
     if {$presentation_type == "fitb"} {
         regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
     }
 
+    #used to determine if the item is multiple choice
+    
+    set mc_type [db_string item_type_id {} -default "nmc"]
     if {[empty_string_p $points]} {
 	set points 0
     }