--- loncom/interface/spreadsheet/lonspreadsheet.pm	2003/05/27 20:05:46	1.6
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	2003/05/29 13:39:38	1.8
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.6 2003/05/27 20:05:46 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.8 2003/05/29 13:39:38 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,7 +126,7 @@ sub file_dialogs {
     ##
     ## Create the save and load dialogs
     my $filename = $spreadsheet->filename();
-    $filename = '' if ($filename =~ /^default\.$sheettype/i);
+    $filename = 'Default' if ($filename =~ /^default\.$sheettype/i);
     $filename =~ s/_$sheettype$//;
     my $save_dialog = '<nobr>'.
         '<input type="submit" name="save" value="Save as" /> '.
@@ -147,16 +147,23 @@ sub file_dialogs {
     </td></tr>
 <tr><td>&nbsp;</td><td>
     <select name="fileselect" onchange="document.sheet.loadfilename.value=document.sheet.fileselect.value" >
-    <option name="Default">Default</option>
 END
+    my $default_filename_set = 0;
     foreach my $sheetfilename ($spreadsheet->othersheets()) {
         $sheetfilename =~ s/_$sheettype$//;
         $load_dialog .= '    <option name="'.$sheetfilename.'"';
         if ($filename eq $sheetfilename) {
             $load_dialog .= ' selected';
+            $default_filename_set = 1;
         }
         $load_dialog .= '>'.$sheetfilename."</option>\n";
     }
+    if ($default_filename_set) {
+        $load_dialog .= '<option name="Default">Default</option>'."\n";
+    } else {
+        $load_dialog .= '<option name="Default" selected >Default</option>'.
+            "\n";
+    }
     $load_dialog .= "</td><td>&nbsp;</td></tr>\n</table>\n";
         #
     $result .=<<END;
@@ -322,6 +329,7 @@ ENDSCRIPT
         #
         if (exists($ENV{'form.load'}) && exists($ENV{'form.loadfilename'})) {
             $filename = $ENV{'form.loadfilename'};
+            $ENV{'form.workcopy'} = 'no';
         }
     }
     ##
@@ -343,6 +351,7 @@ ENDSCRIPT
         # error error - run in circles, scream and shout
         return;
     }
+    $spreadsheet->initialize();
     #
     # Output selector
     $r->print('<input type="submit" value="Update Display" /><br />');