Index: openacs-4/packages/assessment/lib/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/assessment.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/assessment/lib/assessment.tcl	1 Dec 2006 18:23:49 -0000	1.17
+++ openacs-4/packages/assessment/lib/assessment.tcl	2 Dec 2006 21:17:28 -0000	1.18
@@ -230,13 +230,19 @@
 	    lappend item_id_list [lindex $one_item 0]
 	}
 
-	# let's generate the list of page numbers
+	# let's generate the list of page numbers 
+	# for sections with a limited number of items per page
 	if {![empty_string_p $display(num_items)] && $page_total > 1} {
 	    set progress_bar_list [template::util::number_list $page_total 1]
 	}
 	if {![info exists show_progress]} {
 	    set show_progress 0
 	}
+	# if we have multiple sections
+	if {![info exists progress_bar_list] && [llength $section_list] > 1} {
+	    set progress_bar_list [template::util::number_list [llength $section_list] 1]
+	    set current_page [expr {[lsearch $section_list $section_id] +1 }]
+	}
     }
 }