summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
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++;
}