loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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