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.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
	# 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 192 sub mt (@) {	Line 196 sub mt (@) {
}	}
} else {	} else {
return $lh->maketext(@_);	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) {