loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2004/07/28 22:00:14	version 1.60, 2004/07/29 19:45:41
Line 403 sub busy_wait_command {	Line 403 sub busy_wait_command {
$SIG{CHLD} = \&REAPER;	$SIG{CHLD} = \&REAPER;
$done=0;	$done=0;
my $pid=open(CMD,"$command \|");	my $pid=open(CMD,"$command \|");
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);	if ($adv) {
	&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);
	}
while(!$done) {	while(!$done) {
sleep 1;	sleep 1;
my $extra_msg;	my $extra_msg;
Line 411 sub busy_wait_command {	Line 413 sub busy_wait_command {
my $size=(stat($output_file))[7];	my $size=(stat($output_file))[7];
$extra_msg=", $size bytes generated";	$extra_msg=", $size bytes generated";
}	}
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,	if ($adv) {
$message.$extra_msg);	&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,
	$message.$extra_msg);
	}
}	}
$SIG{CHLD}='IGNORE';	$SIG{CHLD}='IGNORE';
close(CMD);	close(CMD);