From 9ce32e8f098711179c4510d9549d5f67ab7c15bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 8 May 2008 05:57:11 +0000
Subject: (extract_header) retrieve URLs of packages (needed for next commit)

---
 Rpmdrake/pkg.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 66d02607..74bde389 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -134,11 +134,14 @@ sub extract_header {
 	    };
 	    add2hash($pkg, { description => rpm_description($p->description),
 	        files => scalar($p->files) ? [ $p->files ] : [ N("(none)") ],
+	        url => $p->url,
 		changelog => format_changelog_changelogs($o_installed_version, $p->changelogs) });
 	    $p->pack_header; # needed in order to call methods on objects outside ->traverse
         } elsif ($xml_info_pkgs{$name}) {
             if ($xml_info eq 'info') {
-                add2hash($pkg, { description => rpm_description($xml_info_pkgs{$name}{description}) });
+                add2hash($pkg, { description => rpm_description($xml_info_pkgs{$name}{description}),
+                                 url => $xml_info_pkgs{$name}{url}
+                             });
             } elsif ($xml_info eq 'files') {
                 my @files = map { chomp_(to_utf8($_)) } split("\n", $xml_info_pkgs{$name}{files});
                 add2hash($pkg, { files => [ @files ? @files : N("(none)") ] });
-- 
cgit v1.2.1