Index: openacs-4/packages/assessment/tcl/item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/item-form-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/assessment/tcl/item-form-procs.tcl	1 Oct 2004 12:55:21 -0000	1.6
+++ openacs-4/packages/assessment/tcl/item-form-procs.tcl	7 Oct 2004 10:58:07 -0000	1.7
@@ -12,8 +12,10 @@
     set item_item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:item_id"]
     set item_display_id [db_string item_item_type "SELECT related_object_id FROM cr_item_rels WHERE relation_tag = 'as_item_display_rel' AND item_id=:item_item_id"]
     db_0or1row as_item_display_rbx "SELECT item_id AS as_item_display_rbx__item_id FROM as_item_display_rbx WHERE item_id=:item_display_id"
+    db_0or1row as_item_display_tbx "SELECT item_id AS as_item_display_tbx__item_id FROM as_item_display_tbx WHERE item_id=:item_display_id"
     set presentation_type "checkbox" ;# DEFAULT
     if {[info exists as_item_display_rbx__item_id]} {set presentation_type "radio"}
+    if {[info exists as_item_display_tbx__item_id]} {set presentation_type "fitb"}
 
     #Add the items depending on the type (as_item_display_types)
     switch -- $presentation_type {