summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2008-06-19 18:01:11 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2008-06-19 18:01:11 +0000
commitd6d706cf043a51dee01517b4c5275a7f227fd0ba (patch)
tree2f9734b6ff82696d560d40217d988436b02404b5 /Master/tlpkg/installer/install-menu-text.pl
parenta778567de444d03137883fc2fa2309185b928adf (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-xMaster/tlpkg/installer/install-menu-text.pl13
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"}) {