version 1.278, 2010/06/10 16:14:34
|
version 1.279, 2010/06/18 09:06:29
|
Line 940 Inputs:
|
Line 940 Inputs:
|
=item $extraInfo A description of the items being iterated over. Typically |
=item $extraInfo A description of the items being iterated over. Typically |
'student'. |
'student'. |
|
|
=item $step (optional) counter step. Will be set to default 1 if ommited. |
=item $step (optional) counter step. Will be set to default 1 if ommited. step must be greater than 0 or empty. |
|
|
=back |
=back |
|
|
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 == 0) || ($step !~ /^\d+(\.\d+)*$/) ) { |
$step = $step > 0 ? $step : 1; |
$step = 1; # default |
|
} |
|
$$prog_state{'done'} += $step; |
$$prog_state{'done'} += $step; |
|
|
# Catch (max modulo step) <> 0 |
# Catch (max modulo step) <> 0 |