[LON-CAPA-cvs] cvs: loncom /interface/spreadsheet lonspreadsheet.pm

[bisitz]

bisitz		Fri Jun  5 12:24:14 2009 EDT

  Modified files:              
    /loncom/interface/spreadsheet	lonspreadsheet.pm 
  Log:
  - XHTML conform selected
  - Localization: Added &mt() call to fieldset legend text
  
  
Index: loncom/interface/spreadsheet/lonspreadsheet.pm
diff -u loncom/interface/spreadsheet/lonspreadsheet.pm:1.53 loncom/interface/spreadsheet/lonspreadsheet.pm:1.54
--- loncom/interface/spreadsheet/lonspreadsheet.pm:1.53	Wed Apr 22 17:19:14 2009
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	Fri Jun  5 12:24:14 2009
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.53 2009/04/22 17:19:14 bisitz Exp $
+# $Id: lonspreadsheet.pm,v 1.54 2009/06/05 12:24:14 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -86,7 +86,7 @@
     my $selout="\n<p><b>$title:</b><br />".'<select name="'.$name.'">';
     foreach (sort keys(%options)) {
         $selout.='<option value="'.$_.'"';
-        if ($_ eq $value) { $selout.=' selected'; }
+        if ($_ eq $value) { $selout.=' selected="selected"'; }
         $selout.='>'.&mt($options{$_}).'</option>';
     }
     return $selout.'</select>';
@@ -165,17 +165,18 @@
     foreach my $sheetfilename ($spreadsheet->othersheets()) {
         $load_dialog .= '    <option value="'.$sheetfilename.'"';
         if ($filename eq $sheetfilename) {
-            $load_dialog .= ' selected';
+            $load_dialog .= ' selected="selected"';
             $default_filename_set = 1;
         }
         $load_dialog .= '>'.$sheetfilename."</option>\n";
     }
     $load_dialog .= "</select>\n</td><td>&nbsp;</td></tr>\n</table>\n";
         #
+    my $headline = &mt('File Dialogs');
     $result .=<<END;
 <!-- 
     <fieldset title="File Dialogs" >
-    <legend>File Dialogs</legend>
+    <legend>$headline</legend>
   -->
 <!-- load / save dialogs -->
 <table cellspacing="2">