--- loncom/localize/lonlocal.pm	2003/10/04 20:49:40	1.19
+++ loncom/localize/lonlocal.pm	2003/10/08 17:43:37	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.19 2003/10/04 20:49:40 www Exp $
+# $Id: lonlocal.pm,v 1.20 2003/10/08 17:43:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -210,8 +210,10 @@ sub mt (@) {
 # ============================================================== What language?
 
 sub current_language {
-    my $lang=$lh->maketext('language_code');
-    return ($lang eq 'language_code'?'en':$lang);
+    if ($lh) {
+	my $lang=$lh->maketext('language_code');
+	return ($lang eq 'language_code'?'en':$lang);
+    }
 }
 
 # ============================================================== What encoding?