From 43235c1bb6da3a3c89b78de1afdf2349cf01d037 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 8 Jul 2008 19:16:21 +0000
Subject: add {pkgs} to $blist, it deprecates {list}

---
 urpm/get_pkgs.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'urpm/get_pkgs.pm')

diff --git a/urpm/get_pkgs.pm b/urpm/get_pkgs.pm
index 5edb1548..682fe20d 100644
--- a/urpm/get_pkgs.pm
+++ b/urpm/get_pkgs.pm
@@ -109,7 +109,7 @@ sub selected2local_and_blists {
 
     my @blists = map {
 	my $medium = $_;
-	my %sources;
+	my %pkgs;
 	if (urpm::media::is_valid_medium($medium) && !$medium->{ignore}) {
 	    while (@remaining_ids) {
 		my $id = $remaining_ids[0];
@@ -117,10 +117,14 @@ sub selected2local_and_blists {
 		shift @remaining_ids;
 
 		my $pkg = $urpm->{depslist}[$id];
-		$sources{$id_map{$id}} = "$medium->{url}/" . $pkg->filename;
+		$pkgs{$id_map{$id}} = $pkg;
 	    }
 	}
-	%sources ? { medium => $medium, list => \%sources } : ();
+	if (%pkgs) {
+	    my $blist = { medium => $medium, pkgs => \%pkgs };
+	    $blist->{list} = { map { $_ => urpm::blist_pkg_to_url($blist, $pkgs{$_}) } keys %pkgs };
+	    $blist;
+	} else { () }
     } (@{$urpm->{media} || []});
 
     if (@remaining_ids) {
-- 
cgit v1.2.1