--- loncom/interface/lonerrorhandler.pm 2006/03/19 22:34:30 1.9 +++ loncom/interface/lonerrorhandler.pm 2006/04/13 19:07:11 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network # Internal Server Error Handler # -# $Id: lonerrorhandler.pm,v 1.9 2006/03/19 22:34:30 albertel Exp $ +# $Id: lonerrorhandler.pm,v 1.11 2006/04/13 19:07:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,9 +30,10 @@ package Apache::lonerrorhandler; use strict; use Apache::Constants qw(:common); -use Apache::loncommon; +use Apache::loncommon(); use Apache::lonnet; -use Apache::lonmsg; +use Apache::lonmsg(); +use Apache::lonacc(); sub handler { my $r = shift; @@ -40,7 +41,7 @@ sub handler { $r->send_http_header; return OK if $r->header_only; - &Apache::loncommon::get_posted_cgi($r); + &Apache::lonacc::get_posted_cgi($r); my $title = $env{'form.sendinfo'} ? 'Sending Error Report' : 'Could Not Process Request'; @@ -72,7 +73,7 @@ ENDMESSAGE $r->dir_config('lonSysEMail'); &Apache::lonmsg::sendemail($recipients,'ERROR REPORT',$message); - $r->print('

Report submitted

Thank you!'); + $r->print('

Report submitted

Thank you!'); } else { # ------------------------------------------------------------- Get environment my $envkey; @@ -127,11 +128,11 @@ $syllabus ENDDOCUMENT - $r->print(&Apache::loncommon::end_page()); # -------------------------- Better terminate this in case something was sticky $r->child_terminate(); } + $r->print(&Apache::loncommon::end_page()); return OK; }