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