From f5c36866492892ee1fe19b320575419e47e14455 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 11 Sep 2019 13:17:01 +0200
Subject: [PATCH] added ttf fonts

---
 lib/Koha/Patron/Discharge.pm | 37 +++++++++++++++++++++++++++++++++---
 1 file changed, 34 insertions(+), 3 deletions(-)

diff --git a/lib/Koha/Patron/Discharge.pm b/lib/Koha/Patron/Discharge.pm
index 3fbdc34..0af934a 100644
--- a/lib/Koha/Patron/Discharge.pm
+++ b/lib/Koha/Patron/Discharge.pm
@@ -142,9 +142,40 @@ sub generate_as_pdf {
     else {
         my $pdf = PDF::FromHTML->new( encoding => 'utf-8' );
         $pdf->load_file( $html_path );
-=for params
-=cut
-        $pdf->convert;
+
+		my $ttf = C4::Context->config('ttf');
+		if ( $ttf  && exists $ttf->{font} ) {
+
+			use Data::Dump qw(dump);
+warn "XXX ttf = ",dump($ttf);
+
+			my $type2path;
+			foreach my $font ( @{ $ttf->{font} } ) {
+					$type2path->{ $font->{type} } = $font->{content};
+			}
+
+			warn "# type2path = ",dump($type2path);
+
+
+        	$pdf->convert(
+#				PageWidth         640
+#				PageResolution    540
+#				FontBold          'HelveticaBold'
+#				FontOblique       'HelveticaOblique'
+#				FontBoldOblique   'HelveticaBoldOblique'
+#				LineHeight        12
+#				FontUnicode       'Helvetica'
+#				Font              (same as FontUnicode)
+#				PageSize          'A4'
+#				Landscape         0
+
+				FontBold          => $type2path->{'HB'} || 'HelveticaBold',
+				FontOblique       => $type2path->{'HO'} || 'HelveticaOblique',
+				FontBoldOblique   => $type2path->{'HBO'}|| 'HelveticaBoldOblique',
+				FontUnicode       => $type2path->{'H'}  || 'Helvetica',
+				Font              => $type2path->{'H'}  || 'Helvetica',
+			);
+		}
         $pdf->write_file( $pdf_path );
     }
 
-- 
2.20.1