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