![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.124, 2003/10/04 22:34:02 | version 1.125, 2003/10/04 23:47:44 |
|---|---|
| Line 1509 returns description of a specified langu | Line 1509 returns description of a specified langu |
| =cut | =cut |
| sub languagedescription { | sub languagedescription { |
| return $language{shift(@_)}; | my $code=shift; |
| return ($supported_language{$code}?'* ':''). | |
| $language{$code}. | |
| ($supported_language{$code}?' ['.&mt('interface available').']':''); | |
| } | } |
| =pod | =pod |