From d6d706cf043a51dee01517b4c5275a7f227fd0ba Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Thu, 19 Jun 2008 18:01:11 +0000 Subject: install-menu-text.pl: removed "current settings: ...". git-svn-id: svn://tug.org/texlive/trunk@8878 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-text.pl | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/installer/install-menu-text.pl') diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index b94c711b86c..63598dc056b 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -63,11 +63,16 @@ sub other_options { '-' => 'deselect all', '+' => 'select all', 'H' => 'help', - 'I' => 'start installation', 'R' => 'return to main menu', 'Q' => 'quit' ); + if ($vars{'from_dvd'}) { + $opts{'I'}='start installation for running from DVD'; + } else { + $opts{'I'}='start installation to HD'; + } + print "\nOther actions:\n"; for my $option (@options) { if (defined $opts{"$option"}) { @@ -883,12 +888,12 @@ EOF } if ($vars{'from_dvd'}) { - print "\n Install to HD (current setting: install for running from DVD)\n"; + print "\n Install to HD\n"; } else { - print "\n Install for running from DVD (current setting: install to HD)\n"; + print "\n Install for running from DVD\n"; } - other_options qw (I H Q); + other_options qw(I H Q); my $answer=prompt 'Enter command'; if (defined $command{"\u$answer"}) { -- cgit v1.2.3