summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-02-08 02:13:20 +0000
committerNorbert Preining <preining@logic.at>2010-02-08 02:13:20 +0000
commit4540c7b2f53eade707e96953e43da0de0031ee0a (patch)
tree8b9a7491b5239ef2158b8cc7d622814fd93825a4 /Master/tlpkg/installer/install-menu-text.pl
parentc696c0b55292d27785e4315b642e138c5aeaad3e (diff)
make installer hide the "Setup for running from DVD" if this mode
is not available git-svn-id: svn://tug.org/texlive/trunk@16939 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl12
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 7bbbf5175c0..c37d392d950 100755
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -13,6 +13,7 @@ use vars qw(@::end_install_hook $::opt_no_cls);
our %vars;
our $tlpdb;
+our @media_available;
our $previoustlpdb;
our @collections_std;
our @collections_lang;
@@ -864,6 +865,7 @@ sub do_install {
}
sub dvd_hd_toggle {
+ return if !member('DVD', @media_available);
if ($vars{'from_dvd'}) { # set up for hd install:
$vars{'from_dvd'} = 0;
$vars{'TEXDIR'} = $vars{'TEXDIRW'};
@@ -1006,10 +1008,12 @@ EOF
}
}
- if ($vars{'from_dvd'}) {
- print "\n <V> set up for installing to hard disk\n";
- } else {
- print "\n <V> set up for running from DVD\n";
+ if (member('DVD', @media_available)) {
+ if ($vars{'from_dvd'}) {
+ print "\n <V> set up for installing to hard disk\n";
+ } else {
+ print "\n <V> set up for running from DVD\n";
+ }
}
other_options qw(I H Q);