diff options
author | Norbert Preining <preining@logic.at> | 2012-05-16 09:06:54 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2012-05-16 09:06:54 +0000 |
commit | 0e5892eb254fe88bbf099baab4e478a601edbbc0 (patch) | |
tree | af2eff0f7dbf57a86f43b8fc59ad69dab7c06b38 /Master/tlpkg/installer/install-menu-text.pl | |
parent | 906c243f290039851430ebdb6fcf97f41b0bdda6 (diff) |
install-tl: add sort scheme for presentation function
install-menu-text/perltk: use this function to order the schemes
git-svn-id: svn://tug.org/texlive/trunk@26439 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 580e2dcd0e3..68a7947526f 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -326,11 +326,10 @@ sub scheme_menu { menu_head 'Select scheme:'; - foreach my $pkg ($tlpdb->schemes) { - push @schemes, $pkg; + @schemes = schemes_ordered_for_presentation(); + foreach my $pkg (@schemes) { $vars{"$pkg"}=($vars{'selected_scheme'} eq $pkg)? 1:0; } - @schemes=sort @schemes; push @schemes, "scheme-custom"; foreach my $scheme (@schemes) { |