--- loncom/localize/lonlocal.pm	2003/10/08 18:21:38	1.22
+++ loncom/localize/lonlocal.pm	2003/10/11 14:06:01	1.24
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.22 2003/10/08 18:21:38 bowersj2 Exp $
+# $Id: lonlocal.pm,v 1.24 2003/10/11 14:06:01 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -180,6 +180,9 @@ use vars qw($lh);
 # ===================================================== The "MakeText" function
 
 sub mt (@) {
+#    my $fh=Apache::File->new('>>/home/www/loncapa/loncom/localize/localize/newphrases.txt');
+#    print $fh join('',@_)."\n";
+#    $fh->close();
     unless ($ENV{'environment.translator'}) {
 	if ($lh) {
 	    return $lh->maketext(@_);
@@ -207,6 +210,20 @@ sub mt (@) {
     }
 }
 
+# ================================================================ The <mt> tag
+
+BEGIN {
+}
+
+sub start_mt {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+    return &mt(&Apache::lonxml::get_all_text("/mt",$parser));
+}
+
+sub end_mt {
+    return '';
+}
+
 # ============================================================== What language?
 
 sub current_language {
@@ -280,6 +297,7 @@ sub get_language_handle {
     if (&Apache::lonnet::mod_perl_version == 1) {
 	$r->content_languages([&current_language()]);
     }
+    &Apache::lonxml::register('Apache::lonlocal',('mt'));
 ###    setlocale(LC_ALL,&current_locale);
 }