[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm /publisher language.tab

[www]

www		Sat Oct  4 19:47:44 2003 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
    /loncom/publisher	language.tab 
  Log:
  Almost forgot that we have an English interface.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.124 loncom/interface/loncommon.pm:1.125
--- loncom/interface/loncommon.pm:1.124	Sat Oct  4 18:34:02 2003
+++ loncom/interface/loncommon.pm	Sat Oct  4 19:47:44 2003
@@ -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.125 2003/10/04 23:47:44 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1509,7 +1509,10 @@
 =cut
 
 sub languagedescription {
-    return $language{shift(@_)};
+    my $code=shift;
+    return  ($supported_language{$code}?'* ':'').
+            $language{$code}.
+	    ($supported_language{$code}?' ['.&mt('interface available').']':'');
 }
 
 =pod
Index: loncom/publisher/language.tab
diff -u loncom/publisher/language.tab:1.4 loncom/publisher/language.tab:1.5
--- loncom/publisher/language.tab:1.4	Sat Oct  4 18:34:02 2003
+++ loncom/publisher/language.tab	Sat Oct  4 19:47:44 2003
@@ -365,7 +365,7 @@
 sruiso	ru		rus	ISO	Russian	
 sruwin	ru		rus	Windows	Russian	
 srukoi	ru		rus	KOI	Russian	
-seniso	en		eng	ISO	English	
+seniso	en		eng	ISO	English	en	
 senisoAU	en	AU	eng	ISO	Australian-English	
 senisoCA	en	CA	eng	ISO	Canadian-English	
 senisoUS	en	US	eng	ISO	USA-English