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

Sun, 19 Mar 2006 22:34:30 -0000

albertel		Sun Mar 19 17:34:30 2006 EDT

  Modified files:              
    /loncom/interface	lonerrorhandler.pm 
  Log:
  - start_page
  
  
Index: loncom/interface/lonerrorhandler.pm
diff -u loncom/interface/lonerrorhandler.pm:1.8 loncom/interface/lonerrorhandler.pm:1.9

--- loncom/interface/lonerrorhandler.pm:1.8	Fri Jul  8 17:21:56 2005
+++ loncom/interface/lonerrorhandler.pm	Sun Mar 19 17:34:30 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Internal Server Error Handler
 #
-# $Id: lonerrorhandler.pm,v 1.8 2005/07/08 21:21:56 www Exp $
+# $Id: lonerrorhandler.pm,v 1.9 2006/03/19 22:34:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -42,15 +42,9 @@
 
     &Apache::loncommon::get_posted_cgi($r);
 
-    my $html=&Apache::lonxml::xmlbegin();
-    my $bodytag=&Apache::loncommon::bodytag($env{'form.sendinfo'}?'Sending Error Report':'Could Not Process Request');
-	$r->print(<<ENDHEADER);
-$html
-<head>
-<title>The LearningOnline Network with CAPA</title>
-</head>
-$bodytag
-ENDHEADER
+    my $title = $env{'form.sendinfo'} ? 'Sending Error Report'
+                                      : 'Could Not Process Request';
+    $r->print(&Apache::loncommon::start_page($title));
 
     if ($env{'form.sendinfo'}) {
 	my $repro='no';
@@ -132,10 +126,10 @@
 $syllabus
 </pre>
 </font>
-</body>
-</html>
 ENDDOCUMENT
+        $r->print(&Apache::loncommon::end_page());
 # -------------------------- Better terminate this in case something was sticky
+
         $r->child_terminate();
     }
     return OK;



