From 840cbd7a6f9707f22c33a4c4a9a4054f5e0adb85 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 13 Jun 2011 00:27:55 +0000 Subject: sort language collections by translated names git-svn-id: svn://tug.org/texlive/trunk@22943 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'Master') 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++; } -- cgit v1.2.3