--- loncom/interface/spreadsheet/Spreadsheet.pm 2006/05/01 06:17:16 1.68 +++ loncom/interface/spreadsheet/Spreadsheet.pm 2006/09/03 00:39:57 1.70 @@ -1,5 +1,5 @@ # -# $Id: Spreadsheet.pm,v 1.68 2006/05/01 06:17:16 raeburn Exp $ +# $Id: Spreadsheet.pm,v 1.70 2006/09/03 00:39:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -60,6 +60,9 @@ use HTML::TokeParser; use Spreadsheet::WriteExcel; use Time::HiRes; use Apache::lonlocal; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + ## ## Package Variables @@ -1283,8 +1286,8 @@ sub html_template_row { $row_html .= ''. &html_uneditable_cell($cell,'#FFDDDD',$allowed).''; } else { - $row_html .= ''. - &html_editable_cell($cell,'#EOFFDD',$allowed, + $row_html .= ''. + &html_editable_cell($cell,'#E0FFDD',$allowed, $self->{outputmode} eq 'source').''; } } @@ -1360,7 +1363,7 @@ sub html_row { $row_html .= ''; $row_html .= &html_uneditable_cell($cell,'#FFDDDD'); } else { - $row_html .= ''; + $row_html .= ''; $row_html .= &html_editable_cell($cell,'#E0FFDD',$allowed, $self->{outputmode} eq 'source'); } @@ -1815,8 +1818,8 @@ sub save_tmp { my %f = $self->formulas(); while( my ($cell,$formula) = each(%f)) { next if ($formula eq 'import'); - print $fh &Apache::lonnet::escape($cell)."=". - &Apache::lonnet::escape($formula)."\n"; + print $fh &escape($cell)."=". + &escape($formula)."\n"; } $fh->close(); } @@ -1834,8 +1837,8 @@ sub load_tmp { while (<$spreadsheet_file>) { chomp; my ($cell,$formula) = split(/=/); - $cell = &Apache::lonnet::unescape($cell); - $formula = &Apache::lonnet::unescape($formula); + $cell = &unescape($cell); + $formula = &unescape($formula); $formulas{$cell} = $formula; } $spreadsheet_file->close();