--- loncom/interface/spreadsheet/lonspreadsheet.pm 2003/09/30 15:40:09 1.26 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2003/11/21 18:18:04 1.30 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.26 2003/09/30 15:40:09 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.30 2003/11/21 18:18:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -72,8 +72,8 @@ use HTML::Entities(); sub textfield { my ($title,$name,$value)=@_; - return "\n

$title:
". - ''; + return "\n

$title:
". + ''; } sub hiddenfield { @@ -83,11 +83,11 @@ sub hiddenfield { sub selectbox { my ($title,$name,$value,%options)=@_; - my $selout="\n

$title:
".''; foreach (sort keys(%options)) { $selout.=''; } return $selout.''; } @@ -122,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'}."
\n"; } else { - $message .= 'Deleted contents of cell '.$ENV{'form.cell'}.'.'; + $message .= &mt('Deleted contents of cell').' '.$ENV{'form.cell'}.'.'; } } ## @@ -140,18 +140,19 @@ sub file_dialogs { $filename = 'Default'; } my $save_dialog = ''. - ' '. + ' '. ''. ''; my $makedefault_dialog = ''; + 'value="'.&mt('Save as & Make This Sheet the Default').'"/>'; # my $link = 'Select Spreadsheet File"; + "('sheet','loadfilename','spreadsheet')\">".&mt('Select Spreadsheet File').""; + my $load=&mt('Load:'); my $load_dialog = < - + $link @@ -161,7 +162,7 @@ sub file_dialogs { END my $default_filename_set = 0; foreach my $sheetfilename ($spreadsheet->othersheets()) { - $load_dialog .= '