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.5 -r1.6
--- openacs-4/packages/assessment/lib/session-items.tcl	2 Mar 2005 17:18:25 -0000	1.5
+++ openacs-4/packages/assessment/lib/session-items.tcl	11 Mar 2005 20:21:48 -0000	1.6
@@ -7,14 +7,19 @@
 }
 
 # todo: display feedback text
-db_multirow -extend { presentation_type html result_points feedback answered_p } items session_items {} {
+db_multirow -extend { presentation_type html result_points feedback answered_p choice_orientation next_title num } items session_items {} {
     set default_value [as::item_data::get -subject_id $subject_id -as_item_id $as_item_id -session_id $session_id]
 
     set presentation_type [as::item_form::add_item_to_form -name session_results_$section_id -section_id $section_id -item_id $as_item_id -session_id $session_id -default_value $default_value -show_feedback $show_feedback]
 
     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 ""
+    }
 
     if {[empty_string_p $points]} {
 	set points 0
@@ -41,3 +46,18 @@
 	set answered_p f
     }    
 }
+
+set counter 1
+for {set i 1; set j 2} {$i <= ${items:rowcount}} {incr i; incr j} {
+    upvar 0 items:$i this
+    set this(num) $counter
+    if {$i < ${items:rowcount}} {
+	upvar 0 items:$j next
+	set this(next_title) $next(title)
+	if {$this(title) != $next(title)} {
+	    incr counter
+	}
+    } else {
+	set this(next_title) ""
+    }
+}