loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>');