version 1.41, 2001/03/10 16:46:52
|
version 1.42, 2001/03/10 22:30:18
|
Line 326 sub sett {
|
Line 326 sub sett {
|
} keys %f; |
} keys %f; |
map { |
map { |
if (($f{$_}) && ($_!~/template\_/)) { |
if (($f{$_}) && ($_!~/template\_/)) { |
if ($_=~/^$pattern/) { |
my $matches=($_=~/^$pattern(\d+)/); |
|
if (($matches) && ($1)) { |
unless ($f{$_}=~/^\!/) { |
unless ($f{$_}=~/^\!/) { |
$t{$_}=$c{$_}; |
$t{$_}=$c{$_}; |
} |
} |
Line 1200 sub loadstudent {
|
Line 1201 sub loadstudent {
|
map { |
map { |
if ($_=~/^A(\d+)/) { |
if ($_=~/^A(\d+)/) { |
my $row=$1; |
my $row=$1; |
unless ($f{$_}=~/^\!/) { |
unless (($f{$_}=~/^\!/) || ($row==0)) { |
@assessdata=&exportsheet(&getuname($safeeval), |
@assessdata=&exportsheet(&getuname($safeeval), |
&getudom($safeeval), |
&getudom($safeeval), |
'assesscalc',$f{$_}); |
'assesscalc',$f{$_}); |
Line 1251 sub loadcourse {
|
Line 1252 sub loadcourse {
|
'<form name=popremain>'+ |
'<form name=popremain>'+ |
'<input type=text size=35 name=remaining value=Starting></form>'+ |
'<input type=text size=35 name=remaining value=Starting></form>'+ |
'</body></html>'); |
'</body></html>'); |
popwin.document.close; |
popwin.document.close(); |
|
popwin.close(); |
</script> |
</script> |
ENDPOP |
ENDPOP |
$r->rflush(); |
$r->rflush(); |
map { |
map { |
if ($_=~/^A(\d+)/) { |
if ($_=~/^A(\d+)/) { |
my $row=$1; |
my $row=$1; |
unless ($f{$_}=~/^\!/) { |
unless (($f{$_}=~/^\!/) || ($row==0)) { |
my @studentdata=&exportsheet(split(/\:/,$f{$_}), |
my @studentdata=&exportsheet(split(/\:/,$f{$_}), |
'studentcalc'); |
'studentcalc'); |
undef %userrdatas; |
undef %userrdatas; |