loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2002/04/11 13:35:23	version 1.85, 2002/04/11 14:16:32
Line 1316 sub readsheet {	Line 1316 sub readsheet {
} elsif($fn=~/\/*\.spreadsheet$/) {	} elsif($fn=~/\/*\.spreadsheet$/) {
my $sheetxml=&Apache::lonnet::getfile	my $sheetxml=&Apache::lonnet::getfile
(&Apache::lonnet::filelocation('',$fn));	(&Apache::lonnet::filelocation('',$fn));
print "<pre>$sheetxml</pre>";
if ($sheetxml == -1) {	if ($sheetxml == -1) {
$sheetxml='<field row="0" col="A">"Error loading spreadsheet '	$sheetxml='<field row="0" col="A">"Error loading spreadsheet '
.$fn.'"</field>';	.$fn.'"</field>';
}	}
%f=%{&parse_sheet(\$sheetxml)};	%f=%{&parse_sheet(\$sheetxml)};
print "<pre>";
foreach (sort( keys(%f))) {
print "$_ = $f{$_}\n";
}
print "</pre>";
} else {	} else {
my $sheet='';	my $sheet='';
my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);	my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);