diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-05-08 05:57:11 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-05-08 05:57:11 +0000 |
| commit | 9ce32e8f098711179c4510d9549d5f67ab7c15bc (patch) | |
| tree | 12dc164902ec997312fa0e0af62dceeaaccd73dd /Rpmdrake | |
| parent | 8181c02c47ec4ad9c828a808afc28ba8b94a6250 (diff) | |
| download | rpmdrake-9ce32e8f098711179c4510d9549d5f67ab7c15bc.tar rpmdrake-9ce32e8f098711179c4510d9549d5f67ab7c15bc.tar.gz rpmdrake-9ce32e8f098711179c4510d9549d5f67ab7c15bc.tar.bz2 rpmdrake-9ce32e8f098711179c4510d9549d5f67ab7c15bc.tar.xz rpmdrake-9ce32e8f098711179c4510d9549d5f67ab7c15bc.zip | |
(extract_header) retrieve URLs of packages (needed for next commit)
Diffstat (limited to 'Rpmdrake')
| -rw-r--r-- | Rpmdrake/pkg.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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)") ] }); |