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.7 -r1.8
--- openacs-4/packages/assessment/lib/session-items.tcl	15 Apr 2005 17:26:45 -0000	1.7
+++ openacs-4/packages/assessment/lib/session-items.tcl	8 Dec 2005 11:20:45 -0000	1.8
@@ -7,7 +7,7 @@
 }
 
 # todo: display feedback text
-db_multirow -extend { presentation_type html result_points feedback answered_p choice_orientation next_title num } items session_items {} {
+db_multirow -extend { presentation_type html result_points feedback answered_p choice_orientation next_title next_pr_type 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]
@@ -58,10 +58,12 @@
     if {$i < ${items:rowcount}} {
 	upvar 0 items:$j next
 	set this(next_title) $next(title)
+	set this(next_pr_type) $next(presentation_type)
 	if {$this(title) != $next(title)} {
 	    incr counter
 	}
     } else {
 	set this(next_title) ""
+	set this(next_pr_type) ""
     }
 }