Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.123, 2003/09/21 20:06:36 | version 1.124, 2003/10/04 22:34:02 |
---|---|
Line 80 my $readit; | Line 80 my $readit; |
# ----------------------------------------------- Filetypes/Languages/Copyright | # ----------------------------------------------- Filetypes/Languages/Copyright |
my %language; | my %language; |
my %supported_language; | |
my %cprtag; | my %cprtag; |
my %fe; my %fd; | my %fe; my %fd; |
my %category_extensions; | my %category_extensions; |
Line 146 BEGIN { | Line 147 BEGIN { |
while (<$fh>) { | while (<$fh>) { |
next if /^\#/; | next if /^\#/; |
chomp; | chomp; |
my ($key,$two,$country,$three,$enc,$val)=(split(/\t/,$_)); | my ($key,$two,$country,$three,$enc,$val,$sup)=(split(/\t/,$_)); |
$language{$key}=$val.' - '.$enc; | $language{$key}=$val.' - '.$enc; |
if ($sup) { | |
$supported_language{$key}=$sup; | |
} | |
} | } |
} | } |
} | } |