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

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

version 1.8, 2005/07/08 21:21:56 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 $html=&Apache::lonxml::xmlbegin();      my $title = $env{'form.sendinfo'} ? 'Sending Error Report'
     my $bodytag=&Apache::loncommon::bodytag($env{'form.sendinfo'}?'Sending Error Report':'Could Not Process Request');                                        : 'Could Not Process Request';
  $r->print(<<ENDHEADER);      $r->print(&Apache::loncommon::start_page($title));
 $html  
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 $bodytag  
 ENDHEADER  
   
     if ($env{'form.sendinfo'}) {      if ($env{'form.sendinfo'}) {
  my $repro='no';   my $repro='no';
Line 78  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 132  Internal info: Line 127  Internal info:
 $syllabus  $syllabus
 </pre>  </pre>
 </font>  </font>
 </body>  
 </html>  
 ENDDOCUMENT  ENDDOCUMENT
 # -------------------------- 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.8  
changed lines
  Added in v.1.11

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