diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
| -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++; } |