Lines 88-93
sub _print_text {
Link Here
|
88 |
foreach my $text_line (@$label_text) { |
88 |
foreach my $text_line (@$label_text) { |
89 |
my $pdf_font = $pdf->Font($text_line->{'font'}); |
89 |
my $pdf_font = $pdf->Font($text_line->{'font'}); |
90 |
my $line = "BT /$pdf_font $text_line->{'font_size'} Tf $text_line->{'text_llx'} $text_line->{'text_lly'} Td ($text_line->{'line'}) Tj ET"; |
90 |
my $line = "BT /$pdf_font $text_line->{'font_size'} Tf $text_line->{'text_llx'} $text_line->{'text_lly'} Td ($text_line->{'line'}) Tj ET"; |
|
|
91 |
# Try to convert multibyte UTF8 to single byte to help std ISOLatin1 font mappings. (turning utf8 flag off) |
92 |
utf8::downgrade($line,1); # 1 = FAIL_OK |
93 |
|
91 |
$pdf->Add($line); |
94 |
$pdf->Add($line); |
92 |
} |
95 |
} |
93 |
} |
96 |
} |
94 |
- |
|
|