--- loncom/localize/lonlocal.pm	2003/09/17 23:16:27	1.5
+++ loncom/localize/lonlocal.pm	2003/09/20 13:21:45	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.5 2003/09/17 23:16:27 www Exp $
+# $Id: lonlocal.pm,v 1.6 2003/09/20 13:21:45 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -67,6 +67,12 @@ sub mt (@) {
     }
 }
 
+# ============================================================== What language?
+
+sub current_language {
+    return $lh->language_tag();
+}
+
 # ============================================================== Translate hash
 
 sub texthash {
@@ -103,6 +109,7 @@ sub endreroutetrans {
 
 sub get_language_handle {
     $lh=Apache::localize->get_handle(&Apache::loncommon::preferred_languages);
+#    &Apache::lonnet::logthis($lh->encoding().' - '.$lh->language_tag());
 }
 
 1;