Lines 8-13
use Algorithm::CheckDigits;
Link Here
|
8 |
use Text::CSV_XS; |
8 |
use Text::CSV_XS; |
9 |
use Data::Dumper; |
9 |
use Data::Dumper; |
10 |
use Library::CallNumber::LC; |
10 |
use Library::CallNumber::LC; |
|
|
11 |
use Text::Bidi qw( log2vis ); |
11 |
|
12 |
|
12 |
use C4::Context; |
13 |
use C4::Context; |
13 |
use C4::Debug; |
14 |
use C4::Debug; |
Lines 444-449
sub draw_label_text {
Link Here
|
444 |
foreach my $line (@label_lines) { |
445 |
foreach my $line (@label_lines) { |
445 |
next LABEL_LINES if $line eq ''; |
446 |
next LABEL_LINES if $line eq ''; |
446 |
my $fontName = C4::Creators::PDF->Font($font); |
447 |
my $fontName = C4::Creators::PDF->Font($font); |
|
|
448 |
$line = log2vis( $line ); |
447 |
my $string_width = C4::Creators::PDF->StrWidth($line, $fontName, $self->{'font_size'}); |
449 |
my $string_width = C4::Creators::PDF->StrWidth($line, $fontName, $self->{'font_size'}); |
448 |
if ($self->{'justify'} eq 'R') { |
450 |
if ($self->{'justify'} eq 'R') { |
449 |
$text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width); |
451 |
$text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width); |