--- loncom/localize/lonlocal.pm 2005/02/17 08:51:08 1.32 +++ loncom/localize/lonlocal.pm 2005/04/18 22:17:45 1.33 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.32 2005/02/17 08:51:08 albertel Exp $ +# $Id: lonlocal.pm,v 1.33 2005/04/18 22:17:45 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=undef; + } if ($lh) { my $enc=$lh->maketext('char_encoding'); - return ($enc eq 'char_encoding'?'UTF-8':$enc); + return ($enc eq 'char_encoding'?$default:$enc); } else { - return 'UTF-8'; + return $default; } }