From 7cf59f844e5d54077b42ceb999e96b8d0a2fe333 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 13 Feb 2015 15:37:12 +0100 Subject: [PATCH] Bug 13709 - Patron cards creator utf-8 encoding and ttf fonts broken This change is similar to Bug 8375 which introduced ttf fonts for labels printing in order to support diacritics and utf-8 encoding, but this change was never implemented for patron cards. Test scenario: 1. make sure that you have font mapping in koha-conf.xml 2. define partron card layout, template, profile and batch (with utf-8 chars, probably in patron firstname or surname) 3. verify that without this patch pdf export file is error message Wide character in compress at /usr/share/perl5/PDF/Reuse.pm line 820 4. apply this patch and verify that generated pdf has correct encoding Signed-off-by: Brendan Gallagher --- C4/Patroncards/Patroncard.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/C4/Patroncards/Patroncard.pm b/C4/Patroncards/Patroncard.pm index 339b969..f130a04 100644 --- a/C4/Patroncards/Patroncard.pm +++ b/C4/Patroncards/Patroncard.pm @@ -173,13 +173,10 @@ sub draw_text { } box ($origin_llx, $box_lly, $self->{'width'} - $text_attribs->{'llx'}, $box_height, $pdf); } -# my $font_resource = $pdf->TTFont("/usr/share/fonts/truetype/msttcorefonts/Times_New_Roman_Bold.ttf"); -# $pdf->FontSize($text_attribs->{'font_size'}); - my $font_resource = $pdf->Font($text_attribs->{'font'}); + $pdf->Font($text_attribs->{'font'}); + $pdf->FontSize($text_attribs->{'font_size'}); foreach my $line (@lines) { -# $pdf->Text($line->{'Tx'}, $line->{'Ty'}, $line->{'line'}); - my $text_line = "BT /$font_resource $text_attribs->{'font_size'} Tf $line->{'Tx'} $line->{'Ty'} Td $line->{'Tw'} Tw ($line->{'line'}) Tj ET"; - $pdf->Add($text_line); + $pdf->Text($line->{'Tx'}, $line->{'Ty'}, $line->{'line'}); } } } -- 1.7.10.4