loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.171, 2003/02/13 22:52:48	version 1.172, 2003/02/17 16:29:51
Line 3185 sub loadstudent{	Line 3185 sub loadstudent{
$self->constants(\%constants);	$self->constants(\%constants);
}	}

# --------------------------------------------------- Load data for one student	# --------------------------------------------------- Load Course Sheet
#	#
sub loadcourse {	sub loadcourse {
my $self = shift;	my $self = shift;
Line 3206 sub loadcourse {	Line 3206 sub loadcourse {
popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+	popwin.document.writeln('<html><body bgcolor="#FFFFFF">'+
'<h3>Spreadsheet Calculation Progress</h3>'+	'<h3>Spreadsheet Calculation Progress</h3>'+
'<form name=popremain>'+	'<form name=popremain>'+
'<input type=text size=45 name=remaining value=Starting></form>'+	'<input type=text size=45 name=remaining value="Processing Course Assessment Data"></form>'+
'</body></html>');	'</body></html>');
popwin.document.close();	popwin.document.close();
</script>	</script>
Line 3228 ENDPOP	Line 3228 ENDPOP
$now++;	$now++;
$r->print('<script>popwin.document.popremain.remaining.value="'.	$r->print('<script>popwin.document.popremain.remaining.value="'.
$now.'/'.$total.': '.int((time-$since)/$now*($total-$now)).	$now.'/'.$total.': '.int((time-$since)/$now*($total-$now)).
' secs remaining '.(time-$started).' last";</script>');	' secs remaining '.(time-$started).' last student";'.
	'</script>');
$r->rflush();	$r->rflush();
#	#
my $index=0;	my $index=0;