--- loncom/localize/lonlocal.pm 2009/02/01 21:54:30 1.54 +++ loncom/localize/lonlocal.pm 2009/02/05 10:39:09 1.55 @@ -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.55 2009/02/05 10:39:09 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) {