--- loncom/interface/lonerrorhandler.pm 2003/08/05 12:52:23 1.4
+++ loncom/interface/lonerrorhandler.pm 2005/02/17 08:50:20 1.6
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Internal Server Error Handler
#
-# $Id: lonerrorhandler.pm,v 1.4 2003/08/05 12:52:23 www Exp $
+# $Id: lonerrorhandler.pm,v 1.6 2005/02/17 08:50:20 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -34,7 +34,7 @@ use Apache::loncommon;
sub handler {
my $r = shift;
- $r->content_type('text/html');
+ &Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
return OK if $r->header_only;
@@ -55,10 +55,11 @@ sub handler {
my $req=$r->as_string();
$req=~s/\"/\'\'/g;
+ my $html=&Apache::lonxml::xmlbegin();
my $bodytag=&Apache::loncommon::bodytag('Could Not Process Request');
# --------------------------------------------------- Print login screen header
$r->print(<<ENDDOCUMENT);
-<html>
+$html
<head>
<title>The LearningOnline Network with CAPA</title>
</head>