loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.18, 2003/03/10 20:25:00	version 1.19, 2003/03/21 15:59:14
Line 724 sub Increment_PrgWin {	Line 724 sub Increment_PrgWin {
} else {	} else {
$time_est .= ' seconds';	$time_est .= ' seconds';
}	}
	my $lasttime = time-$$prog_state{'laststart'};
	if ($lasttime == 1) {
	$lasttime = '('.$lasttime.' second for '.$extraInfo.')';
	} else {
	$lasttime = '('.$lasttime.' seconds for '.$extraInfo.')';
	}
$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 ('.(time-$$prog_state{'laststart'}).	': '.$time_est.' remaining '.$lasttime.'";'.'</script>');
' seconds for '.$extraInfo.')";'.'</script>');
$$prog_state{'laststart'}=time;	$$prog_state{'laststart'}=time;
$r->rflush();	$r->rflush();
}	}