loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.53, 2009/01/02 23:07:52	version 1.54, 2009/02/01 21:54:30
Line 179 use vars qw($lh);	Line 179 use vars qw($lh);

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

	######### 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');
# print LOG (@_[0]."\n");	# print LOG (@_[0]."\n");
Line 191 sub mt (@) {	Line 195 sub mt (@) {
return $_[0];	return $_[0];
}	}
} else {	} else {
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 {	} else {
if (wantarray) {	if (wantarray) {