From 2e2ae5ef7162fbdb62410e808ca135ed87436801 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 7 Aug 2002 15:51:51 +0000
Subject: do not ask user to select ignored medium.

---
 perl-install/install_steps_interactive.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/install_steps_interactive.pm')

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}");
     }
-- 
cgit v1.2.1