From 266f4fad0286e3855b2de65b8b3fb850e62147fc Mon Sep 17 00:00:00 2001 From: Sophie Meynieux Date: Wed, 14 Aug 2013 15:51:10 +0200 Subject: [PATCH] Bug 10727 : Replace carriage return with
when printing hold notices This patch replaces carriage return with
in the content of hold notices for printing. This is necessary to convert html file into well formatted pdf file. Test plan : - checkin an item reserved by a borrower that has not activated email notification - verify in message_queue table that you've got a new HOLD_PRINT notice with status 'pending' - run gather_print_notices.pl Without the patch, the script generates a html file without
tags. If you run printoverdues.sh , the text in the resulting pdf file is all on one line With the patch, the script generates a html file with
tags and pdf file created by printoverdues.sh is well formatted. Signed-off-by: Srdjan --- misc/cronjobs/gather_print_notices.pl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl index 286b035..2d05557 100755 --- a/misc/cronjobs/gather_print_notices.pl +++ b/misc/cronjobs/gather_print_notices.pl @@ -69,6 +69,14 @@ my $today = C4::Dates->new(); my @all_messages = @{ GetPrintMessages() }; exit unless (@all_messages); +## carriage return replaced by
as output is html +foreach my $message (@all_messages) { + local $_ = $message->{'content'}; + s/\n/
/g; + s/\r//g; + $message->{'content'} = $_; +} + my $OUTPUT; if ($split) { -- 1.8.1.2