[BACK]Return to lonspreadsheet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / spreadsheet

Diff for /loncom/interface/spreadsheet/lonspreadsheet.pm between versions 1.6 and 1.7

version 1.6, 2003/05/27 20:05:46 version 1.7, 2003/05/28 15:19:34
Line 126  sub file_dialogs { Line 126  sub file_dialogs {
     ##      ##
     ## Create the save and load dialogs      ## Create the save and load dialogs
     my $filename = $spreadsheet->filename();      my $filename = $spreadsheet->filename();
     $filename = '' if ($filename =~ /^default\.$sheettype/i);      $filename = 'Default' if ($filename =~ /^default\.$sheettype/i);
     $filename =~ s/_$sheettype$//;      $filename =~ s/_$sheettype$//;
     my $save_dialog = '<nobr>'.      my $save_dialog = '<nobr>'.
         '<input type="submit" name="save" value="Save as" /> '.          '<input type="submit" name="save" value="Save as" /> '.
Line 147  sub file_dialogs { Line 147  sub file_dialogs {
     </td></tr>      </td></tr>
 <tr><td>&nbsp;</td><td>  <tr><td>&nbsp;</td><td>
     <select name="fileselect" onchange="document.sheet.loadfilename.value=document.sheet.fileselect.value" >      <select name="fileselect" onchange="document.sheet.loadfilename.value=document.sheet.fileselect.value" >
     <option name="Default">Default</option>  
 END  END
       my $default_filename_set = 0;
     foreach my $sheetfilename ($spreadsheet->othersheets()) {      foreach my $sheetfilename ($spreadsheet->othersheets()) {
         $sheetfilename =~ s/_$sheettype$//;          $sheetfilename =~ s/_$sheettype$//;
         $load_dialog .= '    <option name="'.$sheetfilename.'"';          $load_dialog .= '    <option name="'.$sheetfilename.'"';
         if ($filename eq $sheetfilename) {          if ($filename eq $sheetfilename) {
             $load_dialog .= ' selected';              $load_dialog .= ' selected';
               $default_filename_set = 1;
         }          }
         $load_dialog .= '>'.$sheetfilename."</option>\n";          $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";      $load_dialog .= "</td><td>&nbsp;</td></tr>\n</table>\n";
         #          #
     $result .=<<END;      $result .=<<END;
Line 322  ENDSCRIPT Line 329  ENDSCRIPT
         #          #
         if (exists($ENV{'form.load'}) && exists($ENV{'form.loadfilename'})) {          if (exists($ENV{'form.load'}) && exists($ENV{'form.loadfilename'})) {
             $filename = $ENV{'form.loadfilename'};              $filename = $ENV{'form.loadfilename'};
               $ENV{'form.workcopy'} = 'no';
         }          }
     }      }
     ##      ##
Removed from v.1.6  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>