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

Diff for /loncom/interface/lonerrorhandler.pm between versions 1.21 and 1.24

version 1.21, 2008/12/12 23:03:04 version 1.24, 2013/08/12 16:51:58
Line 83  $env{'form.guesses'} Line 83  $env{'form.guesses'}
 $lt{'env'}:  $lt{'env'}:
 $env{'form.environment'}  $env{'form.environment'}
 ENDMESSAGE  ENDMESSAGE
         my $sysmail = $r->dir_config('lonSysEMail');  
         my $defdom = $r->dir_config('lonDefDomain');          my $defdom = $r->dir_config('lonDefDomain');
           my $sysmail;
           my $notify = 1;
           my %domconfig = &Apache::lonnet::get_dom('configuration',['contacts']);
           if (ref($domconfig{'contacts'}) eq 'HASH') {
               if ($domconfig{'contacts'}{'reporterrors'} == 0) {
                   $notify = 0;
               }
           }
           if ($notify) {
               $sysmail = 'errorrecord@loncapa.org';
           }
         my $origmail = $r->dir_config('lonAdmEMail');          my $origmail = $r->dir_config('lonAdmEMail');
         my $recipients = &Apache::loncommon::build_recipient_list($sysmail,          my $recipients = &Apache::loncommon::build_recipient_list($sysmail,
                                              'errormail',$defdom,$origmail);                                               'errormail',$defdom,$origmail);
Line 105  ENDMESSAGE Line 115  ENDMESSAGE
  my $env='';   my $env='';
  my $syllabus='';   my $syllabus='';
   
    foreach $envkey (keys(%env)) {
               if ($envkey =~ /^form\.(.+)\.filename$/) {
                   my $item = $1;
                   if (exists($env{'form.'.$item.'.mimetype'})) {
                       if (exists($env{'form.'.$item})) {
                           my $size = (length($env{'form.'.$item}))/(1024.0 * 1024.0);
                           $env{'form.'.$item} = &mt('File (contents not shown) - size was [_1] MB.',sprintf("%.4f",$size));
                       }
                   }
               }
           }
   
  foreach $envkey (sort(keys(%env))) {   foreach $envkey (sort(keys(%env))) {
     $env.="$envkey: $env{$envkey}\n";      $env.="$envkey: $env{$envkey}\n";
  }   }
Line 126  ENDMESSAGE Line 148  ENDMESSAGE
 .'<p>'.&mt('Please help us to find out what.').'</p>'  .'<p>'.&mt('Please help us to find out what.').'</p>'
 .'<p>'.&mt('Please take a moment to fill out the form below.').' '  .'<p>'.&mt('Please take a moment to fill out the form below.').' '
 .&mt('Your information, together with internal debugging information, '  .&mt('Your information, together with internal debugging information, '
     .'will be emailed to the system and server administrators.')      .'will be e-mailed to the system and server administrators.')
 .'</p>  .'</p>
 <form action="/adm/errorhandler" method="post">  <form action="/adm/errorhandler" method="post">
 <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>
Removed from v.1.21  
changed lines
  Added in v.1.24

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