--- loncom/localize/lonlocal.pm	2003/09/16 15:23:43	1.1
+++ loncom/localize/lonlocal.pm	2003/09/20 17:44:22	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.1 2003/09/16 15:23:43 www Exp $
+# $Id: lonlocal.pm,v 1.9 2003/09/20 17:44:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,12 +32,15 @@ package Apache::lonlocal;
 
 use strict;
 use Apache::localize;
+use Apache::File;
 
 require Exporter;
 
 our @ISA = qw (Exporter);
 our @EXPORT = qw(mt);
 
+my $reroute;
+
 # ========================================================= The language handle
 
 use vars qw($lh);
@@ -45,13 +48,80 @@ use vars qw($lh);
 # ===================================================== The "MakeText" function
 
 sub mt (@) {
-    return $lh->maketext(@_);
+    unless ($ENV{'environment.translator'}) {
+	return $lh->maketext(@_);
+    } else {
+	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'}.
+	    '">[['.$trans.']]</a>';
+	if ($ENV{'transreroute'}) {
+	    $reroute.=$link;
+	    return $trans;
+	} else {
+	    return $link;
+	}
+    }
+}
+
+# ============================================================== What language?
+
+sub current_language {
+    return $lh->language_tag();
+}
+
+# ============================================================== What encoding?
+
+sub current_encoding {
+    my $enc=$lh->maketext('char_encoding');
+    return ($enc eq 'char_encoding'?'':$enc);
+}
+
+# ============================================================== 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 '';
+    }
 }
 
 # ========= Get a handle (do not invoke in vain, leave this to access handlers)
 
 sub get_language_handle {
-    $lh=Apache::localize->get_handle();
+    my $r=shift;
+    $lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);
+    $r->content_languages(["&current_language()"]);
+    my $enc=&current_encoding();
+    if ($enc) {
+
+    }
 }
 
 1;