--- loncom/interface/loncommon.pm	2003/10/04 22:34:02	1.124
+++ loncom/interface/loncommon.pm	2003/10/05 00:44:44	1.126
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.124 2003/10/04 22:34:02 www Exp $
+# $Id: loncommon.pm,v 1.126 2003/10/05 00:44:44 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1509,7 +1509,10 @@ returns description of a specified langu
 =cut
 
 sub languagedescription {
-    return $language{shift(@_)};
+    my $code=shift;
+    return  ($supported_language{$code}?'* ':'').
+            $language{$code}.
+	    ($supported_language{$code}?' ('.&mt('interface available').')':'');
 }
 
 =pod