Index: openacs-4/packages/acs-tcl/lib/static-progress-bar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/static-progress-bar.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-tcl/lib/static-progress-bar.tcl 17 Jul 2018 11:42:26 -0000 1.4 +++ openacs-4/packages/acs-tcl/lib/static-progress-bar.tcl 17 Jul 2018 13:32:18 -0000 1.5 @@ -47,13 +47,12 @@ set percentage_done 100 } elseif {[info exists finished_page] && $finished_page == $current} { # subtract 1 from current, since we haven't completed this page yet - set percentage_done [expr {round($current * 100.0 / $total)}] + set percentage_done [expr {round($current * 100.0 / $total)}] } else { # subtract 1 from current, since we haven't completed this page yet set percentage_done [expr {round(($current - 1) * 100.0 / $total)}] } - # Local variables: # mode: tcl # tcl-indent-level: 4