From 1d2f266ca0d5cc723115937299968319d03f8e9e Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 2 Oct 2019 11:32:17 +0200 Subject: [PATCH] Bug 23589: Discharge notice does not show non-latin characters It seems that discarge notices never got support for truetype fonts, so notices are missing non-latin characters. Signed-off-by: Theodoros Theodoropoulos Signed-off-by: Katrin Fischer Signed-off-by: Martin Renvoize (cherry picked from commit e909494ac90b2c473815795e9256ecd2f967b223) Signed-off-by: Fridolin Somers --- Koha/Patron/Discharge.pm | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/Koha/Patron/Discharge.pm b/Koha/Patron/Discharge.pm index 5e7595d32b..4cd596dfd1 100644 --- a/Koha/Patron/Discharge.pm +++ b/Koha/Patron/Discharge.pm @@ -142,7 +142,25 @@ sub generate_as_pdf { else { my $pdf = PDF::FromHTML->new( encoding => 'utf-8' ); $pdf->load_file( $html_path ); - $pdf->convert; + + my $ttf = C4::Context->config('ttf'); + if ( $ttf && exists $ttf->{font} ) { + + my $type2path; + foreach my $font ( @{ $ttf->{font} } ) { + $type2path->{ $font->{type} } = $font->{content}; + } + + $pdf->convert( + FontBold => $type2path->{'HB'} || 'HelveticaBold', + FontOblique => $type2path->{'HO'} || 'HelveticaOblique', + FontBoldOblique => $type2path->{'HBO'}|| 'HelveticaBoldOblique', + FontUnicode => $type2path->{'H'} || 'Helvetica', + Font => $type2path->{'H'} || 'Helvetica', + ); + } else { + $pdf->convert(); + } $pdf->write_file( $pdf_path ); } -- 2.39.5