--- loncom/localize/lonlocal.pm	2003/09/16 22:40:25	1.3
+++ loncom/localize/lonlocal.pm	2003/09/17 23:16:27	1.5
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.3 2003/09/16 22:40:25 www Exp $
+# $Id: lonlocal.pm,v 1.5 2003/09/17 23:16:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,6 +39,8 @@ require Exporter;
 our @ISA = qw (Exporter);
 our @EXPORT = qw(mt);
 
+my $reroute;
+
 # ========================================================= The language handle
 
 use vars qw($lh);
@@ -49,12 +51,51 @@ sub mt (@) {
     unless ($ENV{'environment.translator'}) {
 	return $lh->maketext(@_);
     } else {
-	return '<a target="trans" href="/cgi-bin/translator.pl?arg1='.
+	my $trans=$lh->maketext(@_);
+	my $link='<a target="trans" href="/cgi-bin/translator.pl?arg1='.
 	    &Apache::lonnet::escape($_[0]).'&arg2='.
 	    &Apache::lonnet::escape($_[1]).'&arg3='.
 	    &Apache::lonnet::escape($_[2]).'&lang='.
 	    $ENV{'environment.translator'}.
-	    '">'.$lh->maketext(@_).'</a>';
+	    '">[['.$trans.']]</a>';
+	if ($ENV{'transreroute'}) {
+	    $reroute.=$link;
+	    return $trans;
+	} else {
+	    return $link;
+	}
+    }
+}
+
+# ============================================================== Translate hash
+
+sub texthash {
+    my %hash=@_;
+    foreach (keys %hash) {
+	$hash{$_}=&mt($hash{$_});
+    }
+    return %hash;
+}
+# ======================================================== Re-route translation
+
+sub clearreroutetrans {
+    &reroutetrans();
+    $reroute='';
+}
+
+# ======================================================== Re-route translation
+
+sub reroutetrans {
+    $ENV{'transreroute'}=1;
+}
+
+# ==================================================== End re-route translation
+sub endreroutetrans {
+    $ENV{'transreroute'}=0;
+    if ($ENV{'environment.translator'}) {
+	return $reroute;
+    } else {
+	return '';
     }
 }