Index: openacs-4/packages/assessment/lib/assessment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/assessment.tcl,v diff -u -r1.18.2.7 -r1.18.2.8 --- openacs-4/packages/assessment/lib/assessment.tcl 23 Jul 2007 22:57:12 -0000 1.18.2.7 +++ openacs-4/packages/assessment/lib/assessment.tcl 24 Jul 2007 14:47:34 -0000 1.18.2.8 @@ -517,7 +517,10 @@ }" set after_submit "{ - if {!\[empty_string_p \$new_section_order\]} { +\# NOTE the code just incrementes section order so when the section order +\# is greate than the number of items in the list of sections +\# we know we are done and should finish the assessment + if {!\[empty_string_p \$new_section_order\] && \$new_section_order <= [llength \$section_list]} { # go to next section if { \$section_to != \"\"} { set section_order \$section_to