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.6 -r1.7
--- openacs-4/packages/assessment/lib/section-items.tcl	1 Feb 2005 22:41:54 -0000	1.6
+++ openacs-4/packages/assessment/lib/section-items.tcl	11 Mar 2005 18:54:12 -0000	1.7
@@ -2,24 +2,27 @@
     {section_id:text(hidden) {value $section_id}}
 }
 
-db_multirow -extend { checks_related presentation_type html mc_type} items section_items {} {
+db_multirow -extend { checks_related presentation_type html mc_type choice_orientation } 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
     }
+    if {$presentation_type == "rb" || $presentation_type == "cb"} {
+	db_1row choice_orientation {}
+    } else {
+	set choice_orientation ""
+    }
 
     #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
     }
     set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete]
     
     set checks [db_list_of_lists checks_related { } ] 
-
     set checks_related 0
-
     foreach  check_sql $checks {
 	set cond_list  [split $check_sql "="]
 	set item_id [lindex [split [lindex $cond_list 2] " "] 0]