Return to lonlocal.pm CVS log | Up to [LON-CAPA] / loncom / localize |
version 1.31, 2004/02/18 23:33:17 | version 1.32, 2005/02/17 08:51:08 |
---|---|
Line 208 sub current_language { | Line 208 sub current_language { |
sub current_encoding { | sub current_encoding { |
if ($lh) { | if ($lh) { |
my $enc=$lh->maketext('char_encoding'); | my $enc=$lh->maketext('char_encoding'); |
return ($enc eq 'char_encoding'?'':$enc); | return ($enc eq 'char_encoding'?'UTF-8':$enc); |
} else { | } else { |
return undef; | return 'UTF-8'; |
} | } |
} | } |