version 1.68, 2006/05/01 06:17:16
|
version 1.69, 2006/05/30 12:46:26
|
Line 60 use HTML::TokeParser;
|
Line 60 use HTML::TokeParser;
|
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
use Time::HiRes; |
use Time::HiRes; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
## |
## |
## Package Variables |
## Package Variables |
Line 1815 sub save_tmp {
|
Line 1818 sub save_tmp {
|
my %f = $self->formulas(); |
my %f = $self->formulas(); |
while( my ($cell,$formula) = each(%f)) { |
while( my ($cell,$formula) = each(%f)) { |
next if ($formula eq 'import'); |
next if ($formula eq 'import'); |
print $fh &Apache::lonnet::escape($cell)."=". |
print $fh &escape($cell)."=". |
&Apache::lonnet::escape($formula)."\n"; |
&escape($formula)."\n"; |
} |
} |
$fh->close(); |
$fh->close(); |
} |
} |
Line 1834 sub load_tmp {
|
Line 1837 sub load_tmp {
|
while (<$spreadsheet_file>) { |
while (<$spreadsheet_file>) { |
chomp; |
chomp; |
my ($cell,$formula) = split(/=/); |
my ($cell,$formula) = split(/=/); |
$cell = &Apache::lonnet::unescape($cell); |
$cell = &unescape($cell); |
$formula = &Apache::lonnet::unescape($formula); |
$formula = &unescape($formula); |
$formulas{$cell} = $formula; |
$formulas{$cell} = $formula; |
} |
} |
$spreadsheet_file->close(); |
$spreadsheet_file->close(); |