allow selectPackagesToUpgrade to use a specific medium instead of all of them.

1 files changed, 8 insertions, 2 deletions

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index e3858e668..d80d3c42f 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -823,7 +823,10 @@ sub selectPackagesAlreadyInstalled {
 }
 
 sub selectPackagesToUpgrade {
-    my ($packages, $prefix) = @_;
+    my ($packages, $prefix, $medium) = @_;
+
+    #- check before that if medium is given, it should be valid.
+    $medium && ! defined $medium->{start} || ! defined $medium->{end} and return;
 
     log::l("selecting packages to upgrade");
 
@@ -831,7 +834,10 @@ sub selectPackagesToUpgrade {
     $state->{selected} = {};
 
     my %selection;
-    $packages->request_packages_to_upgrade($packages->{rpmdb}, $state, \%selection, requested => undef);
+    $packages->request_packages_to_upgrade($packages->{rpmdb}, $state, \%selection,
+					   requested => undef,
+					   $medium ? (start => $medium->{start}, end => $medium->{end}) : (),
+					  );
     log::l("resolving dependencies...");
     $packages->resolve_requested($packages->{rpmdb}, $state, \%selection,
 				 callback_choices => \&packageCallbackChoices);