summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-19 20:34:08 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-19 20:34:08 +0000
commitf453a6803dac9bd312371a59d5a4ae42e2cad35e (patch)
tree4c861205edbd7841e916b7dc26b779458b9b1415 /perl-install/install_steps_interactive.pm
parent59e7ea4bfc0abe3f1da710369ef377a08c9626d2 (diff)
downloaddrakx-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar
drakx-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar.gz
drakx-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar.bz2
drakx-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar.xz
drakx-f453a6803dac9bd312371a59d5a4ae42e2cad35e.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 969f7b853..9f6169556 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -335,15 +335,22 @@ sub chooseCD {
my ($o, $packages) = @_;
my @mediums = grep { $_ > 1 } pkgs::allMediums($packages);
- #- if no other medium available or a poor beginner.
+ #- if no other medium available or a poor beginner, we are choosing for him!
#- note first CD is always selected and should not be unselected!
return if scalar(@mediums) == 0 || $::beginner;
+ $o->set_help('chooseCD');
$o->ask_many_from_list_ref('',
- _("Choose other CD to install"),
+ _(
+"If you have all the CDs in the list below, click Ok.
+If you have none of those CDs, click Cancel.
+If only some CDs are missing, unselect them, then click Ok."),
[ map { _("Cd-Rom labeled \"%s\"", pkgs::mediumDescr($packages, $_)) } @mediums ],
- [ map { \$packages->[2]{$_}{selected} } @mediums ] #- check for change!
- ) or goto &chooseCD unless $::beginner;
+ [ map { \$packages->[2]{$_}{selected} } @mediums ]
+ ) or do {
+ map { $packages->[2]{$_}{selected} = 0 } @mediums; #- force unselection of other CDs.
+ };
+ $o->set_help('choosePackages');
}
#------------------------------------------------------------------------------