diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-04-19 20:34:08 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-04-19 20:34:08 +0000 |
| commit | f453a6803dac9bd312371a59d5a4ae42e2cad35e (patch) | |
| tree | 4c861205edbd7841e916b7dc26b779458b9b1415 /perl-install/install_steps_interactive.pm | |
| parent | 59e7ea4bfc0abe3f1da710369ef377a08c9626d2 (diff) | |
| download | drakx-backup-do-not-use-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar drakx-backup-do-not-use-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar.gz drakx-backup-do-not-use-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar.bz2 drakx-backup-do-not-use-f453a6803dac9bd312371a59d5a4ae42e2cad35e.tar.xz drakx-backup-do-not-use-f453a6803dac9bd312371a59d5a4ae42e2cad35e.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 15 |
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'); } #------------------------------------------------------------------------------ |