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

Diff for /loncom/interface/lonerrorhandler.pm between versions 1.9 and 1.11

version 1.9, 2006/03/19 22:34:30 version 1.11, 2006/04/13 19:07:11
Line 30  package Apache::lonerrorhandler; Line 30  package Apache::lonerrorhandler;
   
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon();
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lonmsg;  use Apache::lonmsg();
   use Apache::lonacc();
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 40  sub handler { Line 41  sub handler {
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
     &Apache::loncommon::get_posted_cgi($r);      &Apache::lonacc::get_posted_cgi($r);
   
     my $title = $env{'form.sendinfo'} ? 'Sending Error Report'      my $title = $env{'form.sendinfo'} ? 'Sending Error Report'
                                       : 'Could Not Process Request';                                        : 'Could Not Process Request';
Line 72  ENDMESSAGE Line 73  ENDMESSAGE
     $r->dir_config('lonSysEMail');       $r->dir_config('lonSysEMail'); 
   
         &Apache::lonmsg::sendemail($recipients,'ERROR REPORT',$message);          &Apache::lonmsg::sendemail($recipients,'ERROR REPORT',$message);
  $r->print('<h2>Report submitted</h2>Thank you!</body></html>');   $r->print('<h2>Report submitted</h2>Thank you!');
     } else {      } else {
 # ------------------------------------------------------------- Get environment  # ------------------------------------------------------------- Get environment
  my $envkey;   my $envkey;
Line 127  $syllabus Line 128  $syllabus
 </pre>  </pre>
 </font>  </font>
 ENDDOCUMENT  ENDDOCUMENT
         $r->print(&Apache::loncommon::end_page());  
 # -------------------------- Better terminate this in case something was sticky  # -------------------------- Better terminate this in case something was sticky
   
         $r->child_terminate();          $r->child_terminate();
     }      }
       $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
 }   } 
   
Removed from v.1.9  
changed lines
  Added in v.1.11

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