[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.10

version 1.8, 2005/07/08 21:21:56 version 1.10, 2006/03/21 18:33:39
Line 42  sub handler { Line 42  sub handler {
   
     &Apache::loncommon::get_posted_cgi($r);      &Apache::loncommon::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 72  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 126  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.10

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