summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-07 15:51:51 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-07 15:51:51 +0000
commit2e2ae5ef7162fbdb62410e808ca135ed87436801 (patch)
tree524e1aed2960596611f3551e7188d1b429a30586 /perl-install
parentf58ade683833799ea75b32d846d98444be28ccfe (diff)
downloaddrakx-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.pm2
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}");
}