summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-06-16 10:06:05 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-06-16 10:06:05 +0000
commit3a5b2524e003dc7a4cd629e4ac5f174e240a9015 (patch)
tree341230315fa0f551495a94b444a11e7748e09577 /Master/tlpkg/installer/install-menu-text.pl
parent0fc07861068854d87880efb89df8c81b7c2e82fd (diff)
Moved from dvd/to hd option in text menu to below the options
git-svn-id: svn://tug.org/texlive/trunk@8774 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl24
1 files changed, 10 insertions, 14 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 673440e5bb4..be7b33ee232 100755
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -432,13 +432,11 @@ sub directories_menu {
<1> TEXDIRW: $vars{'TEXDIRW'}
(root for configuration- and generated data)
EOF
-;
} else {
print <<"EOF";
<1> TEXDIR: $vars{'TEXDIR'}
support tree: $vars{'TEXDIR'}/texmf
EOF
-;
}
print <<"EOF";
@@ -449,7 +447,6 @@ EOF
<5> TEXMFHOME: $vars{'TEXMFHOME'}
EOF
-;
if (win32) {
print " Note: ~ will expand to %USERPROFILE%\n";
@@ -816,13 +813,7 @@ sub main_menu {
=======> for commands or configurable options <=======
EOF
-;
- if ($vars{'from_dvd'}) {
- print " <T> Install to HD (current setting: install for running from DVD)\n\n";
- } else {
- print " <V> Install for running from DVD (current setting: install to HD)\n\n";
- }
if (!$vars{'from_dvd'}) {
print <<"EOF";
@@ -837,7 +828,7 @@ EOF
<L> language collections
$vars{'n_collections_selected'} collections out of $vars{'n_collections_available'}, disk space required: $vars{'total_size'} MB
EOF
-;
+
if (!check_on_lang_collection_installed()) {
print " !! No language specific collection selected!\n";
print " !! If you only write English documentes that is fine!\n";
@@ -848,13 +839,11 @@ EOF
<D> directories:
TEXDIR (the main TeX directory):
EOF
-;
} else { # $vars{'from_dvd'}
print <<"EOF";
<D> directories:
TEXDIRW (Writable root):
EOF
-;
}
if (TeXLive::TLUtils::texdir_check($vars{$maindir})) {
@@ -871,13 +860,14 @@ EOF
TEXMFSYSCONFIG (directory for local config):
$vars{'TEXMFSYSCONFIG'}
- <O> options:
EOF
-;
print <<"EOF";
+
+ <O> options:
$b_letter use letter size instead of A4 by default
$b_fmt create all format files
+
EOF
if (!$vars{'from_dvd'}) {
@@ -892,6 +882,12 @@ EOF
}
}
+ if ($vars{'from_dvd'}) {
+ print "\n <T> Install to HD (current setting: install for running from DVD)\n\n";
+ } else {
+ print "\n <V> Install for running from DVD (current setting: install to HD)\n\n";
+ }
+
other_options qw (I H Q);
my $answer=prompt 'Enter command';