texlive[43822] Master: rename option_adjustrepo to adjustrepo only

[commits+preining at tug.org]

Revision: 43822
          http://tug.org/svn/texlive?view=revision&revision=43822
Author:   preining
Date:     2017-04-16 04:13:01 +0200 (Sun, 16 Apr 2017)
Log Message:
-----------
rename option_adjustrepo to adjustrepo only

the option_ prefix is reserved for those values that can
also be set in the tlpdb, but not for purely install-tl
options. Fix that.

Modified Paths:
--------------
    trunk/Master/install-tl
    trunk/Master/tlpkg/installer/install-menu-perltk.pl
    trunk/Master/tlpkg/installer/install-menu-text.pl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2017-04-16 02:12:54 UTC (rev 43821)
+++ trunk/Master/install-tl	2017-04-16 02:13:01 UTC (rev 43822)
@@ -135,7 +135,6 @@
 #        'option_src' => 1,
 #        'option_fmt' => 0,
 #        'option_letter' => 0,
-#        'option_adjustrepo' => 1,
 our %vars=( # 'n_' means 'number of'.
         'this_platform' => '',
         'n_systems_available' => 0,
@@ -1638,7 +1637,6 @@
   $vars{'option_sys_bin'} = $tlpdb->option("sys_bin");
   $vars{'option_sys_man'} = $tlpdb->option("sys_man");
   $vars{'option_sys_info'} = $tlpdb->option("sys_info");
-  $vars{'option_adjustrepo'} = $tlpdb->option("adjustrepo");
   $vars{'option_write18_restricted'} = $tlpdb->option("write18_restricted");
   # this option is not stored in tlpdb if an existing installation is used
   $vars{'option_write18_restricted'} ||= 1;
@@ -1868,7 +1866,7 @@
   # if we are told to adjust the repository *and* we are *not*
   # installing from the network already, we adjust the repository
   # to the default mirror.ctan.org
-  if ($vars{'option_adjustrepo'} && ($media ne 'NET')) {
+  if ($vars{'adjustrepo'} && ($media ne 'NET')) {
     $localtlpdb->option ("location", $TeXLiveURL); 
   } else {
     my $final_loc = ($media eq 'NET' ? $location : abs_path($location));

Modified: trunk/Master/tlpkg/installer/install-menu-perltk.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-perltk.pl	2017-04-16 02:12:54 UTC (rev 43821)
+++ trunk/Master/tlpkg/installer/install-menu-perltk.pl	2017-04-16 02:13:01 UTC (rev 43822)
@@ -137,7 +137,7 @@
   $adminallyesno = $::yesno[$vars{'option_w32_multi_user'}];
   $docyesno = $::yesno[$vars{'option_doc'}];
   $restrictedyesno = $::yesno[$vars{'option_write18_restricted'}];
-  $adjustrepoyesno = $::yesno[$vars{'option_adjustrepo'}];
+  $adjustrepoyesno = $::yesno[$vars{'adjustrepo'}];
 }
 
 sub menu_abort {
@@ -604,7 +604,7 @@
       -text => __("Toggle"),
       -command => sub {
         toggle_and_set_opt_variable(
-          \$vars{'option_adjustrepo'}, \$adjustrepoyesno); })
+          \$vars{'adjustrepo'}, \$adjustrepoyesno); })
       ->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m");
   }
 

Modified: trunk/Master/tlpkg/installer/install-menu-text.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-text.pl	2017-04-16 02:12:54 UTC (rev 43821)
+++ trunk/Master/tlpkg/installer/install-menu-text.pl	2017-04-16 02:13:01 UTC (rev 43822)
@@ -762,7 +762,7 @@
   my $b_src=obutton($vars{'option_src'});
   my $b_fmt=obutton($vars{'option_fmt'});
   my $b_letter=obutton($vars{'option_letter'});
-  my $b_adjustrepo=obutton($vars{'option_adjustrepo'});
+  my $b_adjustrepo=obutton($vars{'adjustrepo'});
   my $b_deskint=obutton(
     $vars{'option_desktop_integration'}, \@::deskintdesc);
   my $b_admin=obutton($vars{'option_w32_multi_user'});
@@ -939,7 +939,7 @@
     return $command{'self'};
 
   } elsif ("\u$answer" eq 'Y' and $media ne "NET") {
-    toggle 'option_adjustrepo';
+    toggle 'adjustrepo';
     return $command{'self'};
 
   } else {
@@ -998,7 +998,7 @@
   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 $b_adjustrepo=button($vars{'adjustrepo'});
 
   my $warn_nobin;