From a5aa197c0d1c317c5619c78b4a42130d0282eb81 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 23 Jun 2007 13:54:13 +0000 Subject: keep raw changelogs to avoid changing the format (backport) --- lib/Youri/Submit/Action/Mail.pm | 4 +--- lib/Youri/Submit/Reject/Mail.pm | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/lib/Youri/Submit/Action/Mail.pm b/lib/Youri/Submit/Action/Mail.pm index 6d9d0d8..adbddf7 100644 --- a/lib/Youri/Submit/Action/Mail.pm +++ b/lib/Youri/Submit/Action/Mail.pm @@ -116,9 +116,7 @@ sub get_content { return $information . "\n" . $last_change->[Youri::Package::CHANGE_AUTHOR] . ":\n" . - join( - '', map { "- $_\n" } @{$last_change->[Youri::Package::CHANGE_TEXT]} - ); + $last_change->[Youri::Package::CHANGE_TEXT]; } diff --git a/lib/Youri/Submit/Reject/Mail.pm b/lib/Youri/Submit/Reject/Mail.pm index c20a832..35889f7 100644 --- a/lib/Youri/Submit/Reject/Mail.pm +++ b/lib/Youri/Submit/Reject/Mail.pm @@ -62,7 +62,7 @@ sub run { my $information = $package->get_information(); my $last_change = $package->get_last_change(); my $author = $last_change->[Youri::Package::CHANGE_AUTHOR] if $last_change; - my $list = join('', map { "- $_\n" } @{$last_change->[Youri::Package::CHANGE_TEXT]}) if $last_change; + my $list = $last_change->[Youri::Package::CHANGE_TEXT] if $last_change; my $content = "Errors: \n\n" . join("\n", map { ( "* $_", (map { " - $_" } @{$errors->{$_}}), "\n"); -- cgit v1.2.1