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

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
Lines 742-747 our $PERL_DEPS = { Link Here
742
        'required' => '0',
742
        'required' => '0',
743
        'min_ver'  => '5.836',
743
        'min_ver'  => '5.836',
744
    },
744
    },
745
    'Text::Bidi'   => {
746
        'usage'    => 'Label batch PDF',
747
        'required' => '0',
748
        'min_ver'  => '0.03',
749
    },
745
};
750
};
746
751
747
1;
752
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 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);
(-)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