loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

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