From 1d2f266ca0d5cc723115937299968319d03f8e9e Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
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 <theod@lib.auth.gr>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit e909494ac90b2c473815795e9256ecd2f967b223)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 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