Index: openacs-4/packages/assessment/lib/assessment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/assessment.tcl,v diff -u -r1.22.2.1 -r1.22.2.2 --- openacs-4/packages/assessment/lib/assessment.tcl 22 Jul 2008 09:20:22 -0000 1.22.2.1 +++ openacs-4/packages/assessment/lib/assessment.tcl 7 Sep 2008 20:19:49 -0000 1.22.2.2 @@ -335,7 +335,7 @@ {session_id:text(hidden) {value $session_id}} } -multirow create items as_item_id name title description subtext required_p max_time_to_complete presentation_type html submitted_p content as_item_type_id choice_orientation next_title validate_block next_pr_type question_text +multirow create items as_item_id name title description subtext required_p max_time_to_complete presentation_type html submitted_p content as_item_type_id choice_orientation next_as_item_id validate_block next_pr_type question_text set unsubmitted_list [list] set validate_list [list] @@ -456,10 +456,10 @@ upvar 0 items:$i this if {$i < ${items:rowcount}} { upvar 0 items:$j next - set this(next_title) $next(title) + set this(next_as_item_id) $next(as_item_id) set this(next_pr_type) $next(presentation_type) } else { - set this(next_title) "" + set this(next_as_item_id) "" set this(next_pr_type) "" } }