diff options
author | Francois Pons <fpons@mandriva.com> | 2002-08-07 15:51:51 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2002-08-07 15:51:51 +0000 |
commit | 2e2ae5ef7162fbdb62410e808ca135ed87436801 (patch) | |
tree | 524e1aed2960596611f3551e7188d1b429a30586 /perl-install | |
parent | f58ade683833799ea75b32d846d98444be28ccfe (diff) | |
download | drakx-backup-do-not-use-2e2ae5ef7162fbdb62410e808ca135ed87436801.tar drakx-backup-do-not-use-2e2ae5ef7162fbdb62410e808ca135ed87436801.tar.gz drakx-backup-do-not-use-2e2ae5ef7162fbdb62410e808ca135ed87436801.tar.bz2 drakx-backup-do-not-use-2e2ae5ef7162fbdb62410e808ca135ed87436801.tar.xz drakx-backup-do-not-use-2e2ae5ef7162fbdb62410e808ca135ed87436801.zip |
do not ask user to select ignored medium.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_steps_interactive.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index c1ccc6dc6..4aceb2a35 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -738,6 +738,7 @@ sub chooseCD { #- all the medium grouped together on only one CD. foreach (@mediums) { my $descr = pkgs::mediumDescr($packages, $_); + $packages->{mediums}{$_}{ignored} and next; exists $mediumsDescr{$descr} or push @mediumsDescr, $descr; $mediumsDescr{$descr} ||= $packages->{mediums}{$_}{selected}; } @@ -763,6 +764,7 @@ If only some CDs are missing, unselect them, then click Ok."), #- restore true selection of medium (which may have been grouped together) foreach (@mediums) { my $descr = pkgs::mediumDescr($packages, $_); + $packages->{mediums}{$_}{ignored} and next; $packages->{mediums}{$_}{selected} = $mediumsDescr{$descr}; log::l("select status of medium $_ is $packages->{mediums}{$_}{selected}"); } |