|
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); |