diff options
| author | Norbert Preining <preining@logic.at> | 2011-06-13 00:27:55 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2011-06-13 00:27:55 +0000 |
| commit | 840cbd7a6f9707f22c33a4c4a9a4054f5e0adb85 (patch) | |
| tree | 40e42235a5c691a09474d9cc14c5acde552ecf29 | |
| parent | 1519b338f28073485f1a9acce6470e147a564bb2 (diff) | |
sort language collections by translated names
git-svn-id: svn://tug.org/texlive/trunk@22943 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index b79ad124447..6a9cb99ef68 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -697,12 +697,19 @@ sub menu_select_lang_collections { my $langh = $#collections_lang / 2; my $i = 0; my %lvars = %vars; - foreach my $coll (sort @collections_lang) { - my $tlpobj = $tlpdb->get_package("$coll"); + my %tcl; + for my $cl (@collections_lang) { + my $tlpobj = $tlpdb->get_package($cl); + $tcl{__($tlpobj->shortdesc)} = $cl; + } + foreach my $tcoll (sort keys %tcl) { + my $coll = $tcl{$tcoll}; if ($i < $langh) { - $f1langLa->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w'); + $f1langLa->Checkbutton(-variable => \$lvars{$coll}, -text => $tcoll) + ->pack(-anchor => 'w'); } else { - $f1langLb->Checkbutton(-variable => \$lvars{$coll}, -text => __($tlpobj->shortdesc))->pack(-anchor => 'w'); + $f1langLb->Checkbutton(-variable => \$lvars{$coll}, -text => $tcoll) + ->pack(-anchor => 'w'); } $i++; } |