From 4540c7b2f53eade707e96953e43da0de0031ee0a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 8 Feb 2010 02:13:20 +0000 Subject: 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 --- Master/tlpkg/installer/install-menu-text.pl | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/installer') 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 set up for installing to hard disk\n"; - } else { - print "\n set up for running from DVD\n"; + if (member('DVD', @media_available)) { + if ($vars{'from_dvd'}) { + print "\n set up for installing to hard disk\n"; + } else { + print "\n set up for running from DVD\n"; + } } other_options qw(I H Q); -- cgit v1.2.3