Index: openacs-4/packages/lorsm/www/delivery/delivery-progress-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/delivery-progress-bar.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/www/delivery/delivery-progress-bar.tcl 30 Nov 2006 17:28:11 -0000 1.4
+++ openacs-4/packages/lorsm/www/delivery/delivery-progress-bar.tcl 4 Dec 2006 02:43:43 -0000 1.5
@@ -80,16 +80,15 @@
set progress_list [template::util::number_list [llength $item_list] 1]
set progress_index [expr {$curr_index + 1}]
-
if {[string match "*assessment*" $__include] && ![string match "*assessment/lib/session*" $__include]} {
set show_next 0
} else {
if { $next_item_id eq "" } {
set next_url [dotlrn_community::get_community_url [dotlrn_community::get_community_id]]
- set progress_index ""
}
set show_next 1
}
set include_content [template::adp_include $__include $__include_vars]
+regsub -all {} $include_content {} include_content
\ No newline at end of file