--- loncom/localize/lonlocal.pm 2009/02/01 21:54:30 1.54 +++ loncom/localize/lonlocal.pm 2009/03/20 18:26:34 1.56 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.54 2009/02/01 21:54:30 lueken Exp $ +# $Id: lonlocal.pm,v 1.56 2009/03/20 18:26:34 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -179,9 +179,9 @@ use vars qw($lh); # ===================================================== The "MakeText" function -######### Localize Cache -my @localize_cache; -######### +# ######### Localize Cache +# my @localize_cache; +# ######### sub mt (@) { # open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt'); @@ -195,18 +195,19 @@ sub mt (@) { return $_[0]; } } else { - ######### Localize Cache - foreach my $e (@localize_cache) - { - if($_[0] eq $$e[0]) { return $$e[1]; } - } - - if($#localize_cache == 100) { pop(@localize_cache); } - my $localize_entry = $lh->maketext(@_); - unshift(@localize_cache, [ @_, $localize_entry ] ); - ######### - - return $localize_entry; + return $lh->maketext(@_); +# ######### Localize Cache +# foreach my $e (@localize_cache) +# { +# if($_[0] eq $$e[0]) { return $$e[1]; } +# } +# +# if($#localize_cache == 100) { pop(@localize_cache); } +# my $localize_entry = $lh->maketext(@_); +# unshift(@localize_cache, [ @_, $localize_entry ] ); +# ######### +# +# return $localize_entry; } } else { if (wantarray) { @@ -302,10 +303,13 @@ sub get_genlanguages { 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'; - } +# UTF-8 character encoding needed for the whole LON-CAPA system +# (interface language and homework problem content) +# See Bugzilla 5702 vs. 2189 and 4067 +# 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'?$default:$enc);