From 62d5a9ee0698ba90711734fc8b155a6e21fc9daf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 11 Jan 2008 07:53:51 +0000
Subject: - urpmq:   o use URPM::Package->changelogs (need perl-URPM 3.06)

---
 NEWS  | 2 ++
 urpmq | 9 +++------
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/NEWS b/NEWS
index 75f5ca8e..1d8a1b1a 100644
--- a/NEWS
+++ b/NEWS
@@ -18,6 +18,8 @@
   o always prompt before doing a priority-upgrade transaction, even if there
     is only one priority upgrade package (since there will be more packages to
     install after restarting urpmi)
+- urpmq:
+  o use URPM::Package->changelogs (need perl-URPM 3.06)
 
 Version 4.10.19 - 12 December 2007, by Pascal "Pixel" Rigaux
 
diff --git a/urpmq b/urpmq
index 8e05cde6..345548c4 100755
--- a/urpmq
+++ b/urpmq
@@ -406,12 +406,9 @@ if ($options{list_aliases}) {
 			}
 		    }
 		    if ($options{changelog}) {
-			if ($pkg->changelog_time && $pkg->changelog_name && $pkg->changelog_text) {
-			    my @ti = $pkg->changelog_time;
-			    my @na = $pkg->changelog_name;
-			    my @tx = $pkg->changelog_text;
-			    foreach my $i (0 .. $#ti) {
-				print "* " . urpm::msg::localtime2changelog($ti[$i]) . " $na[$i]\n$tx[$i]\n\n";
+			if (my @changelogs = $pkg->changelogs) {
+			    foreach (@changelogs) {
+				print "* " . urpm::msg::localtime2changelog($_->{time}) . " $_->{name}\n$_->{text}\n\n";
 			    }
 			} else {
 			    print STDERR N("No changelog found\n");
-- 
cgit v1.2.1