--- loncom/localize/lonlocal.pm	2004/02/18 23:33:17	1.31
+++ loncom/localize/lonlocal.pm	2005/06/22 05:04:51	1.34
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.31 2004/02/18 23:33:17 albertel Exp $
+# $Id: lonlocal.pm,v 1.34 2005/06/22 05:04:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -206,11 +206,16 @@ sub current_language {
 # ============================================================== What encoding?
 
 sub current_encoding {
+    my $default='UTF-8';
+    if ($Apache::lonnet::env{'browser.os'} eq 'win' && 
+	$Apache::lonnet::env{'browser.type'} eq 'explorer') {
+        $default='ISO-8859-1';
+    }
     if ($lh) {
 	my $enc=$lh->maketext('char_encoding');
-	return ($enc eq 'char_encoding'?'':$enc);
+	return ($enc eq 'char_encoding'?$default:$enc);
     } else {
-	return undef;
+	return $default;
     }
 }