summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2001-01-04 16:11:03 +0000
committerPablo Saratxaga <pablo@mandriva.com>2001-01-04 16:11:03 +0000
commit78c824afd45ee8ac0d2ac7ad32b4a320300a763b (patch)
treeb170045f5631f5faf8c2c12e34e40e5f0c69bfdb /perl-install/lang.pm
parent058d5f0bb4b61ff63649595c524d033484360bbb (diff)
downloaddrakx-backup-do-not-use-78c824afd45ee8ac0d2ac7ad32b4a320300a763b.tar
drakx-backup-do-not-use-78c824afd45ee8ac0d2ac7ad32b4a320300a763b.tar.gz
drakx-backup-do-not-use-78c824afd45ee8ac0d2ac7ad32b4a320300a763b.tar.bz2
drakx-backup-do-not-use-78c824afd45ee8ac0d2ac7ad32b4a320300a763b.tar.xz
drakx-backup-do-not-use-78c824afd45ee8ac0d2ac7ad32b4a320300a763b.zip
The list of languages now has complete locale names insted of just language
code (that is needed to differentiate zh_CN and zh_TW among others)
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm22
1 files changed, 10 insertions, 12 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 1e17429f6..f8d442765 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -25,7 +25,7 @@ my %languages = (
#-'a3' => [ 'Azeri (cyrillic)', 'koi8-c', 'a3', 'a3' ],
'be_BY.CP1251' => [ 'Belarussian', 'cp1251', 'be', 'be:be_BY.CP1251:ru_RU.CP1251' ],
#- provide aliases for some not very standard names used in po files...
-'bg_BG' => [ 'Bulgarian', 'cp1251', 'bg', 'bg:bg.CP1251:bg_BG.CP1251' ],
+'bg_BG' => [ 'Bulgarian', 'cp1251', 'bg', 'bg:bg.CP1251:bg_BG.CP1251:bg_BG' ],
'br' => [ 'Brezhoneg', 'iso-8859-1', 'br', 'br:fr_FR:fr' ],
#-'bs' => [ 'Bosnian', 'iso-8859-2', 'bs', 'bs:hr:sr' ],
'ca' => [ 'Catalan', 'iso-8859-1', 'ca', 'ca:es_ES:es:fr_FR:fr' ],
@@ -74,9 +74,9 @@ my %languages = (
#-'ms' => [ 'Malay', 'iso-8859-1', 'ms', 'ms' ],
'nl' => [ 'Dutch (Netherlands)', 'iso-8859-1', 'nl', 'nl_NL:nl' ],
# 'nb' is the new locale name in glibc 2.2
- 'no' => [ 'Norwegian (Bokmaal)', 'iso-8859-1', 'no', 'no:nb:no@nynorsk:no_NY' ],
+ 'no' => [ 'Norwegian (Bokmaal)', 'iso-8859-1', 'no', 'no:nb:ny:no@nynorsk:no_NY' ],
# no_NY is used by KDE (but not standard); 'ny' is the new locale in glibc 2.2
-'no@nynorsk' => [ 'Norwegian (Nynorsk)','iso-8859-1', 'no', 'no@nynorsk:ny:no_NY:no' ],
+ 'ny' => [ 'Norwegian (Nynorsk)','iso-8859-1', 'no', 'ny:no@nynorsk:no_NY:no:nb' ],
#-'oc' => [ 'Occitan', 'iso-8859-1', 'oc', 'oc:fr_FR' ],
#-'pd' => [ 'Plauttdietsch', 'iso-8859-1', 'pd', 'pd' ],
#-'ph' => [ 'Pilipino', 'iso-8859-1', 'ph', 'ph:tl' ],
@@ -90,9 +90,7 @@ my %languages = (
'sl' => [ 'Slovenian', 'iso-8859-2', 'sl', 'sl' ],
'sp' => [ 'Serbian (Cyrillic)', 'iso-8859-5', 'sp', 'sp:sr' ],
'sr' => [ 'Serbian (Latin)', 'iso-8859-2', 'sr', 'sr' ],
-#-'sv@traditionell' => [ 'Swedish (traditional sorting [V = W])','iso-8859-1', 'sv', 'sv' ],
-#-'sv@ny' => [ 'Swedish (new sorting [V != W])','iso-8859-1', 'sv', 'sv' ],
- 'sv' => [ 'Swedish','iso-8859-1', 'sv', 'sv' ],
+ 'sv' => [ 'Swedish', 'iso-8859-1', 'sv', 'sv' ],
#-'ta' => [ 'Tamil', 'tscii-0', 'ta', 'ta' ],
'tg' => [ 'Tajik', 'koi8-c', 'tg', 'tg' ],
'th' => [ 'Thai', 'tis620', 'th', 'th' ],
@@ -101,13 +99,13 @@ my %languages = (
#-'ur' => [ 'Urdu', 'cp1256', 'ur', 'ur' ],
'uk_UA' => [ 'Ukrainian', 'koi8-u', 'uk', 'uk_UA:uk' ],
'vi' => [ 'Vietnamese (TCVN)', 'tcvn', 'vi',
- 'vi_VN.tcvn:vi_VN.tcvn-5712:vi' ],
-'vi_VN.viscii' => [ 'Vietnamese (VISCII)','viscii', 'vi',
- 'vi_VN.viscii:vi_VN.tcvn-viscii1.1-1:vi' ],
+ 'vi_VN.TCVN:vi_VN.TCVN-5712:vi_VN.tcvn:vi' ],
+'vi_VN.VISCII' => [ 'Vietnamese (VISCII)','viscii', 'vi',
+ 'vi_VN.VISCII:vi_VN.viscii:vi' ],
'wa' => [ 'Walon', 'iso-8859-1', 'wa', 'wa:fr_BE:fr' ],
#-'yi' => [ 'Yiddish', 'cp1255', 'yi', 'yi' ],
'zh_TW.Big5' => [ 'Chinese (Big5)', 'Big5', 'zh_TW.Big5', 'zh_TW.Big5:zh_TW.big5:zh_TW:zh' ],
-'zh_CN' => [ 'Chinese (GuoBiao)', 'gb2312', 'zh_CN.GB2312', 'zh_CN.GB2312:zh_CN.gb2312:zh_CN:zh' ],
+'zh_CN.GB2312' => [ 'Chinese (GuoBiao)', 'gb2312', 'zh_CN.GB2312', 'zh_CN.GB2312:zh_CN.gb2312:zh_CN:zh' ],
);
my %xim = (
@@ -301,14 +299,14 @@ sub set {
sub pack_langs {
my ($l) = @_;
member('all', @$l) ? 'all' :
- join ':', uniq(map { substr($languages{$_}[2], 0, 2) } @$l);
+ join ':', uniq(map { $languages{$_}[2] } @$l);
}
sub unpack_langs {
my ($langs) = @_;
[
$langs eq 'all' ?
- map { substr($_->[2], 0, 2) } values %languages :
+ map { $_->[2] } values %languages :
split(':', $langs)
];
}