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

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
Lines 704-709 our $PERL_DEPS = { Link Here
704
        'required' => '1',
704
        'required' => '1',
705
        'min_ver'  => '0.190',
705
        'min_ver'  => '0.190',
706
    },
706
    },
707
    'Text::Bidi'   => {
708
        'usage'    => 'Label batch PDF',
709
        'required' => '0',
710
        'min_ver'  => '0.03',
711
    },
707
};
712
};
708
713
709
1;
714
1;
(-)a/C4/Labels/Label.pm (+2 lines)
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 443-448 sub draw_label_text { Link Here
443
        foreach my $line (@label_lines) {
444
        foreach my $line (@label_lines) {
444
            next LABEL_LINES if $line eq '';
445
            next LABEL_LINES if $line eq '';
445
            my $fontName = C4::Creators::PDF->Font($font);
446
            my $fontName = C4::Creators::PDF->Font($font);
447
            $line = log2vis( $line );
446
            my $string_width = C4::Creators::PDF->StrWidth($line, $fontName, $self->{'font_size'});
448
            my $string_width = C4::Creators::PDF->StrWidth($line, $fontName, $self->{'font_size'});
447
            if ($self->{'justify'} eq 'R') {
449
            if ($self->{'justify'} eq 'R') {
448
                $text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width);
450
                $text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width);
(-)a/install_misc/debian.packages (+1 lines)
Lines 107-112 libtest-mockmodule-perl install Link Here
107
libtest-strict-perl		install
107
libtest-strict-perl		install
108
libtest-warn-perl		install
108
libtest-warn-perl		install
109
libtest-yaml-valid-perl		install
109
libtest-yaml-valid-perl		install
110
libtext-bidi-perl           install
110
libtext-charwidth-perl	install
111
libtext-charwidth-perl	install
111
libtext-csv-encoded-perl install
112
libtext-csv-encoded-perl install
112
libtext-csv-perl	install
113
libtext-csv-perl	install
(-)a/install_misc/ubuntu.10.04.packages (+1 lines)
Lines 134-139 libtest-mockmodule-perl install Link Here
134
libtest-strict-perl		install
134
libtest-strict-perl		install
135
libtest-warn-perl		install
135
libtest-warn-perl		install
136
libtest-yaml-valid-perl		install
136
libtest-yaml-valid-perl		install
137
libtext-bidi-perl           install
137
libtext-charwidth-perl			install
138
libtext-charwidth-perl			install
138
libtext-csv-encoded-perl			install
139
libtext-csv-encoded-perl			install
139
libtext-csv-perl			install
140
libtext-csv-perl			install
(-)a/install_misc/ubuntu.12.04.packages (+1 lines)
Lines 139-144 libtest-mockmodule-perl install Link Here
139
libtest-strict-perl			install
139
libtest-strict-perl			install
140
libtest-warn-perl		install
140
libtest-warn-perl		install
141
libtest-yaml-valid-perl		install
141
libtest-yaml-valid-perl		install
142
libtext-bidi-perl           install
142
libtext-charwidth-perl			install
143
libtext-charwidth-perl			install
143
libtext-csv-encoded-perl			install
144
libtext-csv-encoded-perl			install
144
libtext-csv-perl			install
145
libtext-csv-perl			install
(-)a/install_misc/ubuntu.packages (-1 / +1 lines)
Lines 139-144 libtest-mockmodule-perl install Link Here
139
libtest-strict-perl			install
139
libtest-strict-perl			install
140
libtest-warn-perl		install
140
libtest-warn-perl		install
141
libtest-yaml-valid-perl		install
141
libtest-yaml-valid-perl		install
142
libtext-bidi-perl           install
142
libtext-charwidth-perl			install
143
libtext-charwidth-perl			install
143
libtext-csv-encoded-perl			install
144
libtext-csv-encoded-perl			install
144
libtext-csv-perl			install
145
libtext-csv-perl			install
145
- 

Return to bug 12068