diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-06-19 18:01:11 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-06-19 18:01:11 +0000 |
commit | d6d706cf043a51dee01517b4c5275a7f227fd0ba (patch) | |
tree | 2f9734b6ff82696d560d40217d988436b02404b5 /Master/tlpkg/installer/install-menu-text.pl | |
parent | a778567de444d03137883fc2fa2309185b928adf (diff) |
install-menu-text.pl: removed "current settings: ...".
git-svn-id: svn://tug.org/texlive/trunk@8878 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 13 |
1 files changed, 9 insertions, 4 deletions
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 <T> Install to HD (current setting: install for running from DVD)\n"; + print "\n <T> Install to HD\n"; } else { - print "\n <V> Install for running from DVD (current setting: install to HD)\n"; + print "\n <V> 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"}) { |