Index: openacs-4/packages/assessment/lib/session-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/assessment/lib/session-items.tcl	11 Mar 2005 20:21:48 -0000	1.6
+++ openacs-4/packages/assessment/lib/session-items.tcl	15 Apr 2005 17:26:45 -0000	1.7
@@ -16,7 +16,11 @@
         regsub -all -line -nocase -- {<textbox as_item_choice_id=} $title "<input name=response_to_item.${as_item_id}_" html
     }
     if {$presentation_type == "rb" || $presentation_type == "cb"} {
-	db_1row choice_orientation {}
+	array set item [as::item::item_data -as_item_id $as_item_id]
+	array set type [as::item_display_$presentation_type\::data -type_id $item(display_type_id)]
+	set choice_orientation $type(choice_orientation)
+	array unset item
+	array unset type
     } else {
 	set choice_orientation ""
     }