--- loncom/interface/lonhtmlcommon.pm 2010/06/09 16:17:00 1.276
+++ loncom/interface/lonhtmlcommon.pm 2010/06/10 09:09:59 1.277
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.276 2010/06/09 16:17:00 bisitz Exp $
+# $Id: lonhtmlcommon.pm,v 1.277 2010/06/10 09:09:59 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1052,7 +1052,7 @@ sub Update_PrgWin {
# increment progress state
sub Increment_PrgWin {
my ($r,$prog_state,$extraInfo,$step)=@_;
- if ($step !~ /^\d+$/) {
+ if ( ($step == 0) || ($step !~ /^\d+(\.\d+)*$/) ) {
$step = 1; # default
}
$$prog_state{'done'} += $step;