--- loncom/auth/lonauth.pm	2003/11/12 16:55:40	1.59
+++ loncom/auth/lonauth.pm	2003/11/21 22:10:25	1.60
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.59 2003/11/12 16:55:40 www Exp $
+# $Id: lonauth.pm,v 1.60 2003/11/21 22:10:25 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -184,10 +184,11 @@ sub success {
     my $setflags=&Apache::lonmenu::setflags();
     my $maincall=&Apache::lonmenu::maincall();
     my $bodytag=&Apache::loncommon::bodytag('Successful Login');
+    my $add=&addcontent();
 # ------------------------------------------------- Output for successful login
 
     $r->send_cgi_header(<<ENDHEADER);
-Content-type: text/html
+Content-type: text/html$add
 Set-cookie: $cookie
 
 ENDHEADER
@@ -220,8 +221,9 @@ ENDSUCCESS
 sub failed {
     my ($r,$message) = @_;
     my $bodytag=&Apache::loncommon::bodytag('Unsuccessful Login');
+    my $add=&addcontent();
     $r->send_cgi_header(<<ENDFHEADER);
-Content-type: text/html
+Content-type: text/html$add
 
 ENDFHEADER
     $r->print(<<ENDFAILED);
@@ -241,6 +243,17 @@ $bodytag
 ENDFAILED
 }
 
+# --------------------------------------------------------------------- Charset
+
+sub addcontent {
+    my $encoding=&Apache::lonlocal::current_encoding;
+    if ($encoding) {
+	return '; charset='.$encoding;
+    } else {
+	return '';
+    }
+}
+
 # ------------------------------------------------------------------ Rerouting!
 
 sub reroute {