diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 4a4f64dab42..d2f4fbb1b64 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -14,6 +14,7 @@ use vars qw(@::end_install_hook $::opt_no_cls); our %vars; our $tlpdb; our @media_available; +our $media; our $previoustlpdb; our @collections_std; our @collections_lang; @@ -832,6 +833,7 @@ sub options_menu { my $b_src=button($vars{'option_src'}); my $b_fmt=button($vars{'option_fmt'}); my $b_letter=button($vars{'option_letter'}); + my $b_adjustrepo=button($vars{'option_adjustrepo'}); my $b_deskint=button($vars{'option_desktop_integration'}); my $b_admin=button($vars{'option_w32_multi_user'}); my $b_addoneditor=button($vars{'collection-texworks'}); @@ -893,6 +895,9 @@ EOF if (win32() || $::opt_all_options) { print " <W> install TeXworks front end: $b_addoneditor\n"; } + if ($media ne "NET") { + print " <Y> Setup default repo for network updates: $b_adjustrepo\n"; + } other_options qw(R Q diskspace); my $answer = prompt 'Enter command'; @@ -993,6 +998,10 @@ EOF toggle 'collection-texworks'; return $command{'self'}; + } elsif ("\u$answer" eq 'Y' and $media ne "NET") { + toggle 'option_adjustrepo'; + return $command{'self'}; + } else { print "Unknown or unsupported command: $answer\n\n"; return $command{'self'}; @@ -1040,6 +1049,7 @@ sub main_menu { my $b_admin=button($vars{'option_w32_multi_user'}); my $b_addoneditor=button($vars{'collection-texworks'}); my $b_restricted=button($vars{'option_write18_restricted'}); + my $b_adjustrepo=button($vars{'option_adjustrepo'}); my $warn_nobin; @@ -1162,6 +1172,10 @@ EOF ($vars{'portable'} || win32()); } + if ($media ne 'NET') { + print " $b_adjustrepo setup default repository for network updates\n"; + } + if ($vars{'portable'}) { print "\n <V> set up for regular installation to hard disk\n"; } else { |