[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.24 and 1.26

version 1.24, 2003/09/16 15:41:16 version 1.26, 2003/09/30 15:40:09
Line 62  use Apache::assesscalc(); Line 62  use Apache::assesscalc();
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use Apache::lonlocal;
   use Apache::loncoursedata();
 use HTML::Entities();  use HTML::Entities();
   
 ##  ##
Line 208  sub handler { Line 210  sub handler {
     # HTML Header      # HTML Header
     #      #
     if ($r->header_only) {      if ($r->header_only) {
         $r->content_type('text/html');          &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;          $r->send_http_header;
         return OK;          return OK;
     }      }
Line 297  sub handler { Line 299  sub handler {
     #      #
     # Open page, try to prevent browser cache.      # Open page, try to prevent browser cache.
     #      #
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
   
Line 373  ENDSCRIPT Line 375  ENDSCRIPT
     ##      ##
     ## Take care of "backdoor" spreadsheet expiration / recalc stuff      ## Take care of "backdoor" spreadsheet expiration / recalc stuff
     if ($allowed_to_edit && exists($ENV{'form.recalc'})) {      if ($allowed_to_edit && exists($ENV{'form.recalc'})) {
           if (exists($ENV{'form.recalc'})) {
               &Apache::loncoursedata::delete_caches($ENV{'requres.course.id'});
           }
         if ($ENV{'form.recalc'} eq 'ilovewastingtime') {          if ($ENV{'form.recalc'} eq 'ilovewastingtime') {
             &Apache::lonnet::logthis('ilovewastingtime');              &Apache::lonnet::logthis('ilovewastingtime');
             # expire ALL spreadsheets              # expire ALL spreadsheets
Line 456  END Line 461  END
     #      #
     $r->print("<table><tr>");      $r->print("<table><tr>");
     if ($sheettype eq 'classcalc') {      if ($sheettype eq 'classcalc') {
         $r->print('<td><input type="submit" value="Generate Spreadsheet" />'.          $r->print('<td><input type="submit" value="'.
     &mt('Generate Spreadsheet').'" />'.
                   '</td>');                    '</td>');
     }      }
     if ($allowed_to_view) {      if ($allowed_to_view) {
Removed from v.1.24  
changed lines
  Added in v.1.26

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