loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.54, 2009/02/01 21:54:30	version 1.55, 2009/02/05 10:39:09
Line 179 use vars qw($lh);	Line 179 use vars qw($lh);

# ===================================================== The "MakeText" function	# ===================================================== The "MakeText" function

######### Localize Cache	# ######### Localize Cache
my @localize_cache;	# my @localize_cache;
#########	# #########

sub mt (@) {	sub mt (@) {
# open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');	# open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
Line 195 sub mt (@) {	Line 195 sub mt (@) {
return $_[0];	return $_[0];
}	}
} else {	} else {
######### Localize Cache	return $lh->maketext(@_);
foreach my $e (@localize_cache)	# ######### Localize Cache
{	# foreach my $e (@localize_cache)
if($_[0] eq $$e[0]) { return $$e[1]; }	# {
}	# if($_[0] eq $$e[0]) { return $$e[1]; }
	# }
if($#localize_cache == 100) { pop(@localize_cache); }	#
my $localize_entry = $lh->maketext(@_);	# if($#localize_cache == 100) { pop(@localize_cache); }
unshift(@localize_cache, [ @_, $localize_entry ] );	# my $localize_entry = $lh->maketext(@_);
#########	# unshift(@localize_cache, [ @_, $localize_entry ] );
	# #########
return $localize_entry;	#
	# return $localize_entry;
}	}
} else {	} else {
if (wantarray) {	if (wantarray) {