diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 17:17:46 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 17:17:46 +0000 |
| commit | d9595379deacc6aadf8e8049c5c01e50ff5b3dc7 (patch) | |
| tree | 8cbf79bfb9f1792b8ecc45a579656fcfc128ad91 /perl-install | |
| parent | 5ee4800d3a457d276a6955ab25344eabf6ee60e9 (diff) | |
| download | drakx-d9595379deacc6aadf8e8049c5c01e50ff5b3dc7.tar drakx-d9595379deacc6aadf8e8049c5c01e50ff5b3dc7.tar.gz drakx-d9595379deacc6aadf8e8049c5c01e50ff5b3dc7.tar.bz2 drakx-d9595379deacc6aadf8e8049c5c01e50ff5b3dc7.tar.xz drakx-d9595379deacc6aadf8e8049c5c01e50ff5b3dc7.zip | |
sorting according to transliteration in languages-selection-as-images is broken, can't remember if I did that special on purpose, seems it was just dumb from me, nothing more
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 2a8ca998b..e33aeb1fb 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -686,7 +686,7 @@ sub selectLanguage { my @langs = map { my $l = $_; uniq_ { $_->[0] } map { [ ($::move ? $l : "$_|$l"), $_, $l ] } lang::l2location($l) } lang::list_langs(); #- since gtk version will use images (function image2f) we need to sort differently my $sort_func = $using_images ? \&lang::l2transliterated : \&lang::l2name; - @langs = map { $_->[0] } sort { $a->[1] cmp $b->[1] || $sort_func->($a->[2]) cmp $sort_func->($b->[2]) } @langs; + @langs = map { $_->[0] } sort { $sort_func->($a->[2]) cmp $sort_func->($b->[2]) } @langs; add2hash($common, { cancel => '', advanced_messages => formatAlaTeX(N("Mandrake Linux can support multiple languages. Select |