[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.20 and 1.24

version 1.20, 2003/08/17 18:50:12 version 1.24, 2003/09/16 15:41:16
Line 54  built-in functions. Line 54  built-in functions.
 package Apache::lonspreadsheet;  package Apache::lonspreadsheet;
                           
 use strict;  use strict;
   use warnings FATAL=>'all';
   no warnings 'uninitialized';
 use Apache::classcalc();  use Apache::classcalc();
 use Apache::studentcalc();  use Apache::studentcalc();
 use Apache::assesscalc();  use Apache::assesscalc();
Line 103  sub file_dialogs { Line 105  sub file_dialogs {
         if ($save_status ne 'ok') {          if ($save_status ne 'ok') {
             $message .= "An error occurred while saving the spreadsheet".              $message .= "An error occurred while saving the spreadsheet".
                 "There error is:".$save_status;                  "There error is:".$save_status;
             return $result;  
         } else {          } else {
             $message .= "Spreadsheet saved as ".$ENV{'form.savefilename'};              $message .= "Spreadsheet saved as ".$spreadsheet->filename();
         }          }
     } elsif (exists($ENV{'form.newformula'}) &&       } elsif (exists($ENV{'form.newformula'}) && 
              exists($ENV{'form.cell'})       &&                exists($ENV{'form.cell'})       && 
Line 165  END Line 166  END
         }          }
         $load_dialog .= '>'.$sheetfilename."</option>\n";          $load_dialog .= '>'.$sheetfilename."</option>\n";
     }      }
     $load_dialog .= "</td><td>&nbsp;</td></tr>\n</table>\n";      $load_dialog .= "</select>\n</td><td>&nbsp;</td></tr>\n</table>\n";
         #          #
     $result .=<<END;      $result .=<<END;
   <!-- 
       <fieldset title="File Dialogs" >
       <legend>File Dialogs</legend>
     -->
 <!-- load / save dialogs -->  <!-- load / save dialogs -->
 <table cellspacing="2">  <table cellspacing="2">
 <tr>  <tr>
Line 180  END Line 185  END
     </td>      </td>
 </tr>  </tr>
 </table>  </table>
   <!--
       </fieldset>
     -->
 END  END
     return ($result,$message);      return ($result,$message);
 }  }
Line 451  END Line 459  END
         $r->print('<td><input type="submit" value="Generate Spreadsheet" />'.          $r->print('<td><input type="submit" value="Generate Spreadsheet" />'.
                   '</td>');                    '</td>');
     }      }
 #    if ($allowed_to_view) {      if ($allowed_to_view) {
 #        $r->print('<td>'.          $r->print('<td>'.
 #                  &Apache::loncommon::help_open_topic("Spreadsheet_About",                    &Apache::loncommon::help_open_topic("Spreadsheet_About",
 #                                                      'Spreadsheet Help').                                                        'Spreadsheet Help').
 #                  '</td>');                    '</td>');
 #    }      }
 #    if ($allowed_to_edit) {      if ($allowed_to_edit) {
 #        $r->print('<td>'.          $r->print('<td>'.
 #                  &Apache::loncommon::help_open_topic("Spreadsheet_Editing",                    &Apache::loncommon::help_open_topic("Spreadsheet_Editing",
 #                                                      'Editing Help').                                                        'Editing Help').
 #                  '</td>');                    '</td>');
 #    }      }
     $r->print('</tr></table>');      $r->print('</tr></table>');
     #      #
     # Keep track of the filename      # Keep track of the filename
Removed from v.1.20  
changed lines
  Added in v.1.24

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