[LON-CAPA-cvs] cvs: loncom /interface lonerrorhandler.pm

[albertel]

albertel		Tue Mar 21 13:33:39 2006 EDT

  Modified files:              
    /loncom/interface	lonerrorhandler.pm 
  Log:
  - some end_page improvements
  
  
Index: loncom/interface/lonerrorhandler.pm
diff -u loncom/interface/lonerrorhandler.pm:1.9 loncom/interface/lonerrorhandler.pm:1.10
--- loncom/interface/lonerrorhandler.pm:1.9	Sun Mar 19 17:34:30 2006
+++ loncom/interface/lonerrorhandler.pm	Tue Mar 21 13:33:39 2006
@@ -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.10 2006/03/21 18:33:39 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -72,7 +72,7 @@
 	    $r->dir_config('lonSysEMail'); 
 
         &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 {
 # ------------------------------------------------------------- Get environment
 	my $envkey;
@@ -127,11 +127,11 @@
 </pre>
 </font>
 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;
 }