summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-05-16 09:06:54 +0000
committerNorbert Preining <preining@logic.at>2012-05-16 09:06:54 +0000
commit0e5892eb254fe88bbf099baab4e478a601edbbc0 (patch)
treeaf2eff0f7dbf57a86f43b8fc59ad69dab7c06b38 /Master/tlpkg/installer/install-menu-text.pl
parent906c243f290039851430ebdb6fcf97f41b0bdda6 (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-xMaster/tlpkg/installer/install-menu-text.pl5
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) {