diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-09-25 08:26:50 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-09-25 08:26:50 +0000 |
| commit | d4b2b94326f76aa9ba9540a7e9bc3519f865035b (patch) | |
| tree | 431310261e29185b05e72bb624f368316daf1855 /perl-install | |
| parent | 4b8c59a17adef232c3e1997b47876e7df72bbce3 (diff) | |
| download | drakx-d4b2b94326f76aa9ba9540a7e9bc3519f865035b.tar drakx-d4b2b94326f76aa9ba9540a7e9bc3519f865035b.tar.gz drakx-d4b2b94326f76aa9ba9540a7e9bc3519f865035b.tar.bz2 drakx-d4b2b94326f76aa9ba9540a7e9bc3519f865035b.tar.xz drakx-d4b2b94326f76aa9ba9540a7e9bc3519f865035b.zip | |
make current boot medium already selected if multiple hdlist are on this boot medium.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 04dbf0fbb..cf0fafde4 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -683,9 +683,8 @@ sub chooseCD { return; } - #- 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 @mediums == () || !$::expert; + #- the boot medium is already selected. + $mediumsDescr{pkgs::mediumDescr($packages, $install_any::boot_medium)} = 1; #- build mediumDescr according to mediums, this avoid asking multiple times #- all the medium grouped together on only one CD. @@ -695,6 +694,10 @@ sub chooseCD { $mediumsDescr{$descr} ||= $packages->{mediums}{$_}{selected}; } + #- 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 @mediumsDescr == () || !$::expert; + $o->set_help('chooseCD'); $o->ask_many_from_list('', _("If you have all the CDs in the list below, click Ok. |