loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.43, 2004/01/29 00:51:06	version 1.44, 2004/02/03 21:31:52
Line 827 Returns: none	Line 827 Returns: none
sub Create_PrgWin {	sub Create_PrgWin {
my ($r, $title, $heading, $number_to_do)=@_;	my ($r, $title, $heading, $number_to_do)=@_;
$r->print('<script>'.	$r->print('<script>'.
"popwin=open(\'\',\'popwin\',\'width=400,height=100\');".	"var popwin;
	function openpopwin () {
	popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
"popwin.document.writeln(\'<html><head><title>$title</title></head>".	"popwin.document.writeln(\'<html><head><title>$title</title></head>".
"<body bgcolor=\"#88DDFF\">".	"<body bgcolor=\"#88DDFF\">".
"<h4>$heading</h4>".	"<h4>$heading</h4>".
Line 835 sub Create_PrgWin {	Line 837 sub Create_PrgWin {
'<input type="text" size="55" name="remaining" value="'.	'<input type="text" size="55" name="remaining" value="'.
&mt('Starting').'"></form>'.	&mt('Starting').'"></form>'.
"</body></html>\');".	"</body></html>\');".
"popwin.document.close();".	"popwin.document.close();}".
"</script>");	"\nwindow.setTimeout(openpopwin,0)</script>");

my %prog_state;	my %prog_state;
$prog_state{'done'}=0;	$prog_state{'done'}=0;