diff options
| -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. |