--- loncom/localize/lonlocal.pm	2009/01/02 23:07:52	1.53
+++ loncom/localize/lonlocal.pm	2009/02/01 21:54:30	1.54
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.53 2009/01/02 23:07:52 raeburn Exp $
+# $Id: lonlocal.pm,v 1.54 2009/02/01 21:54:30 lueken Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -179,6 +179,10 @@ use vars qw($lh);
 
 # ===================================================== The "MakeText" function
 
+######### Localize Cache
+my @localize_cache;
+#########
+
 sub mt (@) {
 #    open(LOG,'>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
 #    print LOG (@_[0]."\n");
@@ -191,7 +195,18 @@ sub mt (@) {
                 return $_[0];
             }
         } 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 {
 	if (wantarray) {