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

version 1.8, 2005/07/08 21:21:56 version 1.12, 2006/09/02 20:49:20
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 106  Please take a moment to fill out the for Line 101  Please take a moment to fill out the for
 with internal debugging information, will be emailed to the system and server  with internal debugging information, will be emailed to the system and server
 administrators.  administrators.
 <form action="/adm/errorhandler" method="post">  <form action="/adm/errorhandler" method="post">
 <input type="submit" value="Send Information">  <input type="submit" value="Send Information" />
 <h3>Please describe what you did just before this screen came up</h3>  <h3>Please describe what you did just before this screen came up</h3>
 <textarea name="prioraction" cols="50" rows="5">  <textarea name="prioraction" cols="50" rows="5">
 </textarea>  </textarea>
 <h3>Is this problem reproducible?</h3>  <h3>Is this problem reproducible?</h3>
 <label>  <label>
 <input type="checkbox" name="reproducible" value="yes"> Yes!  <input type="checkbox" name="reproducible" value="yes" /> Yes!
 </label>  </label>
 <h3>Do you have any guesses why this might have happened?</h3>  <h3>Do you have any guesses why this might have happened?</h3>
 <textarea name="guesses" cols="50" rows="5">  <textarea name="guesses" cols="50" rows="5">
Line 122  administrators. Line 117  administrators.
 <input type="hidden" name="syllabus" value="$syllabus" />  <input type="hidden" name="syllabus" value="$syllabus" />
 <input type="hidden" name="sendinfo" value="1" />  <input type="hidden" name="sendinfo" value="1" />
 <p>  <p>
 <input type="submit" value="Send Information">  <input type="submit" value="Send Information" />
 </p>  </p>
 </form>  </form>
 <h1>Thank you for your help!</h1>  <h1>Thank you for your help!</h1>
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.12

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