From 98f6b7b006e9f1342171ab775d0f1e5529ac7834 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 2 Sep 2002 13:54:31 +0000
Subject: allow selectPackagesToUpgrade to use a specific medium instead of all
 of them.

---
 perl-install/pkgs.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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