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

Diff for /loncom/interface/lonerrorhandler.pm between versions 1.13 and 1.20

version 1.13, 2007/12/03 22:58:46 version 1.20, 2008/11/21 20:17:11
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
   
   
 package Apache::lonerrorhandler;  package Apache::lonerrorhandler;
   
 use strict;  use strict;
Line 43  sub handler { Line 45  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
   
     &Apache::lonacc::get_posted_cgi($r);      &Apache::lonacc::get_posted_cgi($r);
       if (!$Apache::lonlocal::lh) {
           &Apache::lonlocal::get_language_handle($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';
     $r->print(&Apache::loncommon::start_page($title));      $r->print(&Apache::loncommon::start_page($title));
Line 81  $env{'form.environment'} Line 85  $env{'form.environment'}
 ENDMESSAGE  ENDMESSAGE
         my $sysmail = $r->dir_config('lonSysEMail');          my $sysmail = $r->dir_config('lonSysEMail');
         my $defdom = $r->dir_config('lonDefDomain');          my $defdom = $r->dir_config('lonDefDomain');
         my $recipients = &Apache::loncommon::build_recipient_list($r,$sysmail,          my $origmail = $r->dir_config('lonAdmEMail');
                                                          'errormail',$defdom);          my $recipients = &Apache::loncommon::build_recipient_list($sysmail,
                                                'errormail',$defdom,$origmail);
         if ($recipients ne '') {          if ($recipients ne '') {
             &Apache::lonmsg::sendemail($recipients,'ERROR REPORT',$message);              &Apache::lonmsg::sendemail($recipients,'ERROR REPORT',$message);
     $r->print('<h2>'.&mt('Report submitted').'</h2>'.&mt('Thank you!'));      $r->print('<h2>'.&mt('Report submitted').'</h2>'.&mt('Thank you!'));
         } else {          } else {
             $r->print('<h2>'.&mt('Warning: Report not submitted').'</h2>'.              $r->print('<h2>'.&mt('Warning: Report not submitted').'</h2>'.
                       '<span class="LC_error">'.&mt("The administrators of                        '<span class="LC_error">'
                       the domain ($defdom) have not set any e-mail addresses                       .&mt('The administrators of the domain [_1] have not set'
                       for receipt of your error report.").'</span>');                           .' any e-mail addresses for receipt of your error report.'
                            ,'<tt>'.$defdom.'</tt>')
                        .'</span>');
         }          }
     } else {      } else {
 # ------------------------------------------------------------- Get environment  # ------------------------------------------------------------- Get environment
Line 113  ENDMESSAGE Line 120  ENDMESSAGE
  my $version=$r->dir_config('lonVersion');   my $version=$r->dir_config('lonVersion');
   
 # ----------------------------------------------------------- Print error form  # ----------------------------------------------------------- Print error form
  $r->print('<h2>'.   $r->print('<h2 class="LC_error">'
 &mt('Somewhere something went wrong - please help us to find out what.').'</h2>'.  .&mt('Somewhere something went wrong')
 &mt('Please take a moment to fill out the form below.').' '.&mt('Your information,  .'</h2>'
  together with internal debugging information, will be emailed to the system and   .'<p>'.&mt('Please help us to find out what.').'</p>'
 server administrators.').'  .'<p>'.&mt('Please take a moment to fill out the form below.').' '
   .&mt('Your information, together with internal debugging information, '
       .'will be emailed to the system and server administrators.')
   .'</p>
 <form action="/adm/errorhandler" method="post">  <form action="/adm/errorhandler" method="post">
 <input type="submit" value="'.&mt('Send Information').'" />  
 <h3>'.&mt('Please describe what you did just before this screen came up').'</h3>  <h3>'.&mt('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>
Line 135  server administrators.').' Line 144  server 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="'.&mt('Send Information').'" />  <input type="submit" title="Send Information" value="'.&mt('Send').'" />
 </p>  </p>
 </form>  </form>
 <h1>'.&mt('Thank you for your help!').'</h1>  <h1>'.&mt('Thank you for your help!').'</h1>
 <font size="-1">  <div><font size="-1">
 <pre>  
 '.&mt('Internal info:').  '.&mt('Internal info:').
   '<pre>'.
 $syllabus.'  $syllabus.'
 </pre>  </pre>
 </font>  </font></div>
 ');  ');
 # -------------------------- Better terminate this in case something was sticky  # -------------------------- Better terminate this in case something was sticky
   
Line 156  $syllabus.' Line 165  $syllabus.'
   
 1;  1;
 __END__  __END__
   
   
   =pod
   
   =head1 NAME
   
   Apache::lonerrorhandler.pm
   
   =head1 SYNOPSIS
   
   Handles errors.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 OVERVIEW
   
   None
   
   =cut
   
Removed from v.1.13  
changed lines
  Added in v.1.20

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