--- loncom/interface/spreadsheet/lonspreadsheet.pm 2003/08/29 21:09:35 1.21 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2003/10/11 14:04:54 1.27 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.21 2003/08/29 21:09:35 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.27 2003/10/11 14:04:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -54,12 +54,16 @@ built-in functions. package Apache::lonspreadsheet; use strict; +use warnings FATAL=>'all'; +no warnings 'uninitialized'; use Apache::classcalc(); use Apache::studentcalc(); use Apache::assesscalc(); use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::lonhtmlcommon; +use Apache::lonlocal; +use Apache::loncoursedata(); use HTML::Entities(); ## @@ -83,7 +87,7 @@ sub selectbox { foreach (sort keys(%options)) { $selout.=''; + $selout.='>'.&mt($options{$_}).''; } return $selout.''; } @@ -103,9 +107,8 @@ sub file_dialogs { if ($save_status ne 'ok') { $message .= "An error occurred while saving the spreadsheet". "There error is:".$save_status; - return $result; } else { - $message .= "Spreadsheet saved as ".$ENV{'form.savefilename'}; + $message .= "Spreadsheet saved as ".$spreadsheet->filename(); } } elsif (exists($ENV{'form.newformula'}) && exists($ENV{'form.cell'}) && @@ -119,10 +122,10 @@ sub file_dialogs { $result .=&hiddenfield('workcopy',$sheettype); if ($ENV{'form.newformula'} !~ /^\s*$/) { $message .='
Cell '.$ENV{'form.cell'}.' = | '.
+ ''.&mt('Cell').' '.$ENV{'form.cell'}.' = | '.
''.$ENV{'form.newformula'}." |