From 7608251f9c8c3e0d48f29cfa3e6f1444b9e56ee4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 8 Jul 2008 19:29:04 +0000
Subject: create blist_to_urls()

---
 urpm.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/urpm.pm b/urpm.pm
index 30aad8d5..f3e81d92 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -196,9 +196,19 @@ sub tune_rpm {
     }
 }
 
+sub _blist_pkg_to_urls {
+    my ($blist, @pkgs) = @_;
+    my $base_url = $blist->{medium}->{url} . '/';
+    map { $base_url . $_->filename } @pkgs;
+}
 sub blist_pkg_to_url {
     my ($blist, $pkg) = @_;
-    $blist->{medium}->{url} . '/' . $pkg->filename;
+    my ($url) = _blist_pkg_to_urls($blist, $pkg);
+    $url;
+}
+sub blist_to_urls {
+    my ($blist) = @_;
+    _blist_pkg_to_urls($blist, values %{$blist->{pkgs}});
 }
 
 sub protocol_from_url {
-- 
cgit v1.2.1