summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2011-06-13 00:27:55 +0000
committerNorbert Preining <preining@logic.at>2011-06-13 00:27:55 +0000
commit840cbd7a6f9707f22c33a4c4a9a4054f5e0adb85 (patch)
tree40e42235a5c691a09474d9cc14c5acde552ecf29 /Master/tlpkg/installer/install-menu-perltk.pl
parent1519b338f28073485f1a9acce6470e147a564bb2 (diff)
sort language collections by translated names
git-svn-id: svn://tug.org/texlive/trunk@22943 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl15
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++;
}