View | Details | Raw Unified | Return to bug 2246
Collapse All | Expand All

(-)a/labels/label-create-pdf.pl (-1 / +3 lines)
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
- 

Return to bug 2246