--- loncom/interface/spreadsheet/lonspreadsheet.pm 2008/12/11 14:55:20 1.52 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2013/01/08 16:21:12 1.63 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.52 2008/12/11 14:55:20 bisitz Exp $ +# $Id: lonspreadsheet.pm,v 1.63 2013/01/08 16:21:12 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -64,6 +64,7 @@ use Apache::lonnet; use Apache::lonhtmlcommon; use Apache::lonlocal; use Apache::loncoursedata(); +use Apache::lonquickgrades(); use HTML::Entities(); ## @@ -73,12 +74,12 @@ use HTML::Entities(); sub textfield { my ($title,$name,$value)=@_; return "\n

$title:
". - ''; + ''; } sub hiddenfield { my ($name,$value)=@_; - return ''."\n"; + return ''."\n"; } sub selectbox { @@ -86,7 +87,7 @@ sub selectbox { my $selout="\n

$title:
".''; @@ -106,10 +107,13 @@ sub file_dialogs { $spreadsheet->filename($env{'form.savefilename'}); my $save_status = $spreadsheet->save(); if ($save_status ne 'ok') { - $message .= "An error occurred while saving the spreadsheet". - "There error is:".$save_status; + $message .= ''. + &mt('An error occurred while saving the spreadsheet. The error is: [_1].', + $save_status).''; } else { - $message .= "Spreadsheet saved as ".$spreadsheet->filename(); + $message .= ''.&mt('Spreadsheet saved as: [_1] .', + ''.$spreadsheet->filename().''). + ''; } } elsif (exists($env{'form.newformula'}) && exists($env{'form.cell'}) && @@ -146,7 +150,7 @@ sub file_dialogs { $truefilename.'" />'. ''; my $makedefault_dialog = ''; + 'value="'.&mt('Save as & Make This Sheet the Default').'"/>'; # my $link = '".&mt('Select Spreadsheet File').""; @@ -165,17 +169,18 @@ END foreach my $sheetfilename ($spreadsheet->othersheets()) { $load_dialog .= '