@@ -, +, @@ language --- C4/Installer/PerlDependencies.pm | 5 +++++ install_misc/debian.packages | 1 + install_misc/ubuntu.10.04.packages | 1 + install_misc/ubuntu.12.04.packages | 1 + install_misc/ubuntu.packages | 1 + labels/label-create-pdf.pl | 4 +++- 6 files changed, 12 insertions(+), 1 deletion(-) --- a/C4/Installer/PerlDependencies.pm +++ a/C4/Installer/PerlDependencies.pm @@ -699,6 +699,11 @@ our $PERL_DEPS = { 'required' => '0', 'min_ver' => '0.73', }, + 'Text::Bidi' => { + 'usage' => 'Label batch PDF', + 'required' => '0', + 'min_ver' => '0.03', + }, }; 1; --- a/install_misc/debian.packages +++ a/install_misc/debian.packages @@ -107,6 +107,7 @@ libtest-mockmodule-perl install libtest-strict-perl install libtest-warn-perl install libtest-yaml-valid-perl install +libtext-bidi-perl install libtext-charwidth-perl install libtext-csv-encoded-perl install libtext-csv-perl install --- a/install_misc/ubuntu.10.04.packages +++ a/install_misc/ubuntu.10.04.packages @@ -134,6 +134,7 @@ libtest-mockmodule-perl install libtest-strict-perl install libtest-warn-perl install libtest-yaml-valid-perl install +libtext-bidi-perl install libtext-charwidth-perl install libtext-csv-encoded-perl install libtext-csv-perl install --- a/install_misc/ubuntu.12.04.packages +++ a/install_misc/ubuntu.12.04.packages @@ -139,6 +139,7 @@ libtest-mockmodule-perl install libtest-strict-perl install libtest-warn-perl install libtest-yaml-valid-perl install +libtext-bidi-perl install libtext-charwidth-perl install libtext-csv-encoded-perl install libtext-csv-perl install --- a/install_misc/ubuntu.packages +++ a/install_misc/ubuntu.packages @@ -139,6 +139,7 @@ libtest-mockmodule-perl install libtest-strict-perl install libtest-warn-perl install libtest-yaml-valid-perl install +libtext-bidi-perl install libtext-charwidth-perl install libtext-csv-encoded-perl install libtext-csv-perl install --- a/labels/label-create-pdf.pl +++ a/labels/label-create-pdf.pl @@ -26,6 +26,7 @@ use C4::Auth; use C4::Debug; use C4::Creators; use C4::Labels; +use Text::Bidi qw( log2vis ); my $cgi = new CGI; @@ -100,7 +101,8 @@ sub _print_text { $llx += $template->get_attr('label_width'); $align = 'right'; } - $pdf->Text( $llx, $text_line->{'text_lly'}, $text_line->{'line'}, $align ); + my $visual = log2vis( $text_line->{'line'} ); + $pdf->Text( $llx, $text_line->{'text_lly'}, $visual, $align ); } } --