From 0ed66231cb182f36611444dbd643ad5dbd7e2c1c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 8 Feb 2008 16:02:14 +0000
Subject: (format_changelog_changelogs) factorize formatting unlocalized
 changelogs

---
 Rpmdrake/pkg.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'Rpmdrake/pkg.pm')

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 27c8d56b..8dbd11ea 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -153,8 +153,7 @@ sub extract_header {
 	    };
 	    add2hash($pkg, { description => rpm_description($p->description),
 	        files => scalar($p->files) ? [ $p->files ] : [ N("(none)") ],
-		changelog => format_changelog_string(join("\n", map {
-                    "* " . localtime2changelog($_->{time}) . " $_->{name}\n\n$_->{text}\n" } $p->changelogs)) });
+		changelog => format_changelog_changelogs($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') {
@@ -164,9 +163,7 @@ sub extract_header {
                 add2hash($pkg, { files => [ @files ? @files : N("(none)") ] });
             } elsif ($xml_info eq 'changelog') {
                 add2hash($pkg, { 
-                    changelog => format_changelog_string(join("\n", map {
-                        "* " . localtime2changelog($_->{time}) . " $_->{name}\n\n$_->{text}\n";
-                    } @{$xml_info_pkgs{$name}{changelogs}}))
+                    changelog => format_changelog_changelogs(@{$xml_info_pkgs{$name}{changelogs}})
                 });
             }
 	    $p->pack_header; # needed in order to call methods on objects outside ->traverse
-- 
cgit v1.2.1