Lines 26-31
use C4::Auth;
Link Here
|
26 |
use C4::Debug; |
26 |
use C4::Debug; |
27 |
use C4::Creators; |
27 |
use C4::Creators; |
28 |
use C4::Labels; |
28 |
use C4::Labels; |
|
|
29 |
use Text::Bidi qw( log2vis ); |
29 |
|
30 |
|
30 |
my $cgi = new CGI; |
31 |
my $cgi = new CGI; |
31 |
|
32 |
|
Lines 90-96
sub _print_text {
Link Here
|
90 |
foreach my $text_line (@$label_text) { |
91 |
foreach my $text_line (@$label_text) { |
91 |
$pdf->Font($text_line->{'font'}); |
92 |
$pdf->Font($text_line->{'font'}); |
92 |
$pdf->FontSize( $text_line->{'font_size'} ); |
93 |
$pdf->FontSize( $text_line->{'font_size'} ); |
93 |
$pdf->Text( $text_line->{'text_llx'}, $text_line->{'text_lly'}, $text_line->{'line'} ); |
94 |
my $visual = log2vis( $text_line->{'line'} ); |
|
|
95 |
$pdf->Text( $text_line->{'text_llx'}, $text_line->{'text_lly'}, $visual ); |
94 |
} |
96 |
} |
95 |
} |
97 |
} |
96 |
|
98 |
|
97 |
- |
|
|