version 1.389, 2017/11/06 03:08:40
|
version 1.390, 2017/11/16 13:31:29
|
Line 1025 data structure used for bookkeeping.
|
Line 1025 data structure used for bookkeeping.
|
|
|
=item $number_to_do The total number of items being processed. |
=item $number_to_do The total number of items being processed. |
|
|
|
=item $preamble Optional HTML to display before the progress bar. |
|
|
=back |
=back |
|
|
=back |
=back |
|
|
Returns a hash containing the progress state data structure. |
Returns a hash containing the progress state data structure. |
|
If $number_to_do is zero or null, an indeterminate progress bar will |
|
be used. |
|
|
=item &Update_PrgWin() |
=item &Update_PrgWin() |
|
|
Line 1118 Returns: none
|
Line 1122 Returns: none
|
|
|
# Create progress |
# Create progress |
sub Create_PrgWin { |
sub Create_PrgWin { |
my ($r,$number_to_do)=@_; |
my ($r,$number_to_do,$preamble)=@_; |
my %prog_state; |
my %prog_state; |
$prog_state{'done'}=0; |
$prog_state{'done'}=0; |
$prog_state{'firststart'}=&Time::HiRes::time(); |
$prog_state{'firststart'}=&Time::HiRes::time(); |
$prog_state{'laststart'}=&Time::HiRes::time(); |
$prog_state{'laststart'}=&Time::HiRes::time(); |
$prog_state{'max'}=$number_to_do; |
$prog_state{'max'}=$number_to_do; |
&Apache::loncommon::LCprogressbar($r); |
&Apache::loncommon::LCprogressbar($r,$prog_state{'max'},$preamble); |
return %prog_state; |
return %prog_state; |
} |
} |
|
|
# update progress |
# update progress |
sub Update_PrgWin { |
sub Update_PrgWin { |
my ($r,$prog_state,$displayString)=@_; |
my ($r,$prog_state,$displayString)=@_; |
&Apache::loncommon::LCprogressbarUpdate($r,undef,$displayString); |
&Apache::loncommon::LCprogressbarUpdate($r,undef,$displayString,$$prog_state{'max'}); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
|
|
Line 1181 sub Increment_PrgWin {
|
Line 1185 sub Increment_PrgWin {
|
if ($$prog_state{'max'}) { |
if ($$prog_state{'max'}) { |
$percent=int(100.*$current/$$prog_state{'max'}); |
$percent=int(100.*$current/$$prog_state{'max'}); |
} |
} |
&Apache::loncommon::LCprogressbarUpdate($r,$percent,$timeinfo); |
&Apache::loncommon::LCprogressbarUpdate($r,$percent,$timeinfo,$$prog_state{'max'}); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
|
|