summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2011-06-08 00:41:15 +0000
committerNorbert Preining <preining@logic.at>2011-06-08 00:41:15 +0000
commit101fd69e95e2e7903a2342a2dfeaef59816676cc (patch)
tree6fc696382f616e820f7d5cfae16ec3111304b442 /Master/tlpkg/installer/install-menu-perltk.pl
parentec4ce05182cd69af8ab30b1da0cc46061a45efca (diff)
gui installer: if only one arch is selected, show the arch name instead
of 1 out of NN (suggestions by Mojca) git-svn-id: svn://tug.org/texlive/trunk@22858 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl16
1 files changed, 15 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 0eb042d9607..b79ad124447 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -865,7 +865,21 @@ sub menu_set_schemebutton_text {
sub menu_set_binbutton_text {
if (!win32()) {
- menu_set_text($bintextbutton, __("%s out of %s", $vars{'n_systems_selected'}, $vars{'n_systems_available'}));
+ if ($vars{'n_systems_selected'} == 1) {
+ my $selsys;
+ foreach my $key (keys %vars) {
+ if ($key=~/binary_(.*)/) {
+ if ($vars{$key}) {
+ $selsys = $1;
+ # we have only one system selected, stop here
+ last;
+ }
+ }
+ }
+ menu_set_text($bintextbutton, $selsys);
+ } else {
+ menu_set_text($bintextbutton, __("%s out of %s", $vars{'n_systems_selected'}, $vars{'n_systems_available'}));
+ }
}
}