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
     }
Index: openacs-4/packages/assessment/lib/section-items.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-items.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/lib/section-items.xql	10 Dec 2004 20:21:50 -0000	1.3
+++ openacs-4/packages/assessment/lib/section-items.xql	26 Jan 2005 18:18:35 -0000	1.4
@@ -17,5 +17,18 @@
       </querytext>
 </fullquery>
 
- 
+<fullquery name="item_type_id">
+<querytext>
+
+    select max(t.as_item_type_id) as as_item_type_id
+    from as_item_type_mc t, cr_revisions c, as_item_rels r
+    where t.as_item_type_id = r.target_rev_id
+    and r.item_rev_id = :as_item_id
+    and r.rel_type = 'as_item_type_rel'
+    and c.revision_id = t.as_item_type_id
+    group by c.title, t.increasing_p, t.allow_negative_p,
+    t.num_correct_answers, t.num_answers
+</querytext>
+</fullquery>
+
 </queryset>