--- loncom/interface/loncommon.pm	2003/11/07 21:04:37	1.144
+++ loncom/interface/loncommon.pm	2003/11/08 01:45:26	1.145
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.144 2003/11/07 21:04:37 matthew Exp $
+# $Id: loncommon.pm,v 1.145 2003/11/08 01:45:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1499,6 +1499,16 @@ sub languagedescription {
 	    ($supported_language{$code}?' ('.&mt('interface available').')':'');
 }
 
+sub plainlanguagedescription {
+    my $code=shift;
+    return $language{$code};
+}
+
+sub supportedlanguagecode {
+    my $code=shift;
+    return $supported_language{$code};
+}
+
 =pod
 
 =item * copyrightids()