version 1.40, 2001/03/08 23:22:11
|
version 1.41, 2001/03/10 16:46:52
|
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 Gerd Kortemeyer |
|
|
package Apache::lonspreadsheet; |
package Apache::lonspreadsheet; |
|
|
Line 1207 sub loadstudent {
|
Line 1207 sub loadstudent {
|
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 1266 ENDPOP
|
Line 1271 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++; |