version 1.40, 2001/03/08 23:22:11
|
version 1.43, 2001/03/12 18:27:46
|
Line 4
|
Line 4
|
# 11/11,11/15,11/27,12/04,12/05,12/06,12/07, |
# 11/11,11/15,11/27,12/04,12/05,12/06,12/07, |
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30, |
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30, |
# 01/01/01,02/01,03/01,19/01,20/01,22/01, |
# 01/01/01,02/01,03/01,19/01,20/01,22/01, |
# 03/05,03/08 Gerd Kortemeyer |
# 03/05,03/08,03/10,03/12 Gerd Kortemeyer |
|
|
package Apache::lonspreadsheet; |
package Apache::lonspreadsheet; |
|
|
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{$_}); |
my $index=0; |
my $index=0; |
map { |
map { |
if ($assessdata[$index]) { |
if ($assessdata[$index]) { |
$c{$_.$row}=$assessdata[$index]; |
my $col=$_; |
unless ($_ eq 'A') { |
if ($assessdata[$index]=~/\D/) { |
$f{$_.$row}='import'; |
$c{$col.$row}="'".$assessdata[$index]."'"; |
|
} else { |
|
$c{$col.$row}=$assessdata[$index]; |
|
} |
|
unless ($col eq 'A') { |
|
$f{$col.$row}='import'; |
} |
} |
} |
} |
$index++; |
$index++; |
Line 1246 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(); |
</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; |
Line 1266 ENDPOP
|
Line 1272 ENDPOP
|
my $index=0; |
my $index=0; |
map { |
map { |
if ($studentdata[$index]) { |
if ($studentdata[$index]) { |
$c{$_.$row}=$studentdata[$index]; |
my $col=$_; |
unless ($_ eq 'A') { |
if ($studentdata[$index]=~/\D/) { |
$f{$_.$row}='import'; |
$c{$col.$row}="'".$studentdata[$index]."'"; |
|
} else { |
|
$c{$col.$row}=$studentdata[$index]; |
|
} |
|
unless ($col eq 'A') { |
|
$f{$col.$row}='import'; |
} |
} |
} |
} |
$index++; |
$index++; |
Line 1279 ENDPOP
|
Line 1290 ENDPOP
|
} keys %f; |
} keys %f; |
&setformulas($safeeval,%f); |
&setformulas($safeeval,%f); |
&setconstants($safeeval,%c); |
&setconstants($safeeval,%c); |
$r->print('<script>popwin.close</script>'); |
$r->print('<script>popwin.close()</script>'); |
$r->rflush(); |
$r->rflush(); |
} |
} |
|
|