![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonhtmlcommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.276, 2010/06/09 16:17:00 | version 1.277, 2010/06/10 09:09:59 |
|---|---|
| Line 1052 sub Update_PrgWin { | Line 1052 sub Update_PrgWin { |
| # increment progress state | # increment progress state |
| sub Increment_PrgWin { | sub Increment_PrgWin { |
| my ($r,$prog_state,$extraInfo,$step)=@_; | my ($r,$prog_state,$extraInfo,$step)=@_; |
| if ($step !~ /^\d+$/) { | if ( ($step == 0) || ($step !~ /^\d+(\.\d+)*$/) ) { |
| $step = 1; # default | $step = 1; # default |
| } | } |
| $$prog_state{'done'} += $step; | $$prog_state{'done'} += $step; |