version 1.27, 2003/07/11 16:07:20
|
version 1.28, 2003/07/25 19:56:37
|
Line 734 sub Create_PrgWin {
|
Line 734 sub Create_PrgWin {
|
"<body bgcolor=\"#88DDFF\">". |
"<body bgcolor=\"#88DDFF\">". |
"<h4>$heading</h4>". |
"<h4>$heading</h4>". |
"<form name=popremain>". |
"<form name=popremain>". |
"<input type=text size=55 name=remaining value=Starting></form>". |
'<input type="text" size="55" name="remaining" value="Starting"></form>'. |
"</body></html>\');". |
"</body></html>\');". |
"popwin.document.close();". |
"popwin.document.close();". |
"</script>"); |
"</script>"); |
Line 793 sub Increment_PrgWin {
|
Line 793 sub Increment_PrgWin {
|
} else { |
} else { |
$lasttime = '('.$lasttime.' seconds for '.$extraInfo.')'; |
$lasttime = '('.$lasttime.' seconds for '.$extraInfo.')'; |
} |
} |
|
# |
|
my $user_browser = $ENV{'browser.type'} if (exists($ENV{'browser.type'})); |
|
my $user_os = $ENV{'browser.os'} if (exists($ENV{'browser.os'})); |
|
if (! defined($user_browser) || ! defined($user_os)) { |
|
(undef,$user_browser,undef,undef,undef,$user_os) = |
|
&Apache::loncommon::decode_user_agent(); |
|
} |
|
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
|
$lasttime = ''; |
|
} |
$r->print('<script>popwin.document.popremain.remaining.value="'. |
$r->print('<script>popwin.document.popremain.remaining.value="'. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
': '.$time_est.' remaining '.$lasttime.'";'.'</script>'); |
': '.$time_est.' remaining '.$lasttime.'";'.'</script>'); |