use urpmi code in order to add media (and replace medium->{selected}

by medium->{ignore} for compatibility with urpmi)

1 files changed, 3 insertions, 3 deletions

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index fd33aab1f..af4f8d6c5 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -125,7 +125,7 @@ sub packagesToInstall {
     my ($packages) = @_;
     my @packages;
     foreach (@{$packages->{media}}) {
-	$_->{selected} or next;
+	!$_->{ignore} or next;
 	log::l("examining packagesToInstall of medium $_->{name}");
 	push @packages, grep { $_->flag_selected } install::media::packagesOfMedium($packages, $_);
     }
@@ -142,7 +142,7 @@ sub _packageRequest {
 
     #- check for medium selection, if the medium has not been
     #- selected, the package cannot be selected.
-    packageMedium($packages, $pkg)->{selected} or return;
+    !packageMedium($packages, $pkg)->{ignore} or return;
 
     +{ $pkg->id => 1 };
 }
@@ -633,7 +633,7 @@ sub selectPackagesToUpgrade {
 sub _filter_packages {
     my ($retry, $packages, @packages) = @_;
     grep {
-        if ($_->flag_installed || !packageMedium($packages, $_)->{selected}) {
+        if ($_->flag_installed || packageMedium($packages, $_)->{ignore}) {
             if ($_->name eq 'mdv-rpm-summary' && $_->flag_installed) {
                 install::pkgs::setup_rpm_summary_translations();
             }