Lines 55-62
sub new {
Link Here
|
55 |
|
55 |
|
56 |
sub End { |
56 |
sub End { |
57 |
my $self = shift; |
57 |
my $self = shift; |
58 |
# if the pdf stream is utf8, explicitly set it to utf8; this avoids at lease some wide character errors -chris_n |
58 |
|
59 |
utf8::encode($PDF::Reuse::stream) if utf8::is_utf8($PDF::Reuse::stream); |
|
|
60 |
prEnd(); |
59 |
prEnd(); |
61 |
|
60 |
|
62 |
# slurp temporary filename and print it out for plack to pick up |
61 |
# slurp temporary filename and print it out for plack to pick up |
Lines 112-118
sub Field {
Link Here
|
112 |
sub Font { |
111 |
sub Font { |
113 |
my $self = shift; |
112 |
my $self = shift; |
114 |
my $fontName = shift; |
113 |
my $fontName = shift; |
115 |
return prFont($fontName); |
114 |
my $ttf_path = '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSerif.ttf'; |
|
|
115 |
if ( -e $ttf_path ) { |
116 |
warn "# using ttf_path $ttf_path"; |
117 |
return prTTFont($ttf_path); |
118 |
} else { |
119 |
return prFont($fontName); |
120 |
} |
116 |
} |
121 |
} |
117 |
|
122 |
|
118 |
sub FontSize { |
123 |
sub FontSize { |