From efd3e12cbd82620b89479b9688b88db849575856 Mon Sep 17 00:00:00 2001 From: Bernardo Gonzalez Kriegel Date: Wed, 23 Apr 2014 18:18:25 -0300 Subject: [PATCH] [SIGNED-OFF]Bug 12068 - label-create-pdf.pl Add support for RTL language On top of Bug 8375 If you print a label using arabic/hebrew script, letters are printed in logical direction, from left to right, giving a mangled result This patch will try to fix those cases adding a new perl dependency, Text::Bidi, and using the automagic feature if it's log2vis() function to rearrange chars based on detected text 'direction' To test: 1. Install Text::Bidi package (apt-get install libtext-bidi-perl) 2. Try a batch, using Helvetica, with a mix of ltr and rtl (arabic/hebrew) titles, chars are good, but direction is bad NOTE: I suggest changing the mapping for 'HO' font on koha-conf.xml, from DejaVuSans-Oblique.ttf to DejaVuSans.ttf to view 'title' chars 3. Apply the patch 4. Try again, now the result is good Formerly a followup of Bug 8375, look sample pics on that Bug. Rebased following changes on Bug 8375 Note: Arabic titles will not be displayed, because current code selects Oblique variant (unless you change mapping as suggested on 2. ) Hebrew looks good. Rebased and move use of new dependency to Labels.pm Rebased on master Signed-off-by: Karam Qubsi --- C4/Installer/PerlDependencies.pm | 5 +++++ C4/Labels/Label.pm | 2 ++ install_misc/debian.packages | 1 + install_misc/ubuntu.10.04.packages | 1 + install_misc/ubuntu.12.04.packages | 1 + install_misc/ubuntu.packages | 1 + 6 files changed, 11 insertions(+), 0 deletions(-) diff --git a/C4/Installer/PerlDependencies.pm b/C4/Installer/PerlDependencies.pm index ad1f5a6..80a0498 100644 --- a/C4/Installer/PerlDependencies.pm +++ b/C4/Installer/PerlDependencies.pm @@ -742,6 +742,11 @@ our $PERL_DEPS = { 'required' => '0', 'min_ver' => '5.836', }, + 'Text::Bidi' => { + 'usage' => 'Label batch PDF', + 'required' => '0', + 'min_ver' => '0.03', + }, }; 1; diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index eb28006..ff6c865 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -8,6 +8,7 @@ use Algorithm::CheckDigits; use Text::CSV_XS; use Data::Dumper; use Library::CallNumber::LC; +use Text::Bidi qw( log2vis ); use C4::Context; use C4::Debug; @@ -444,6 +445,7 @@ sub draw_label_text { foreach my $line (@label_lines) { next LABEL_LINES if $line eq ''; my $fontName = C4::Creators::PDF->Font($font); + $line = log2vis( $line ); my $string_width = C4::Creators::PDF->StrWidth($line, $fontName, $self->{'font_size'}); if ($self->{'justify'} eq 'R') { $text_llx = $params{'llx'} + $self->{'width'} - ($self->{'left_text_margin'} + $string_width); diff --git a/install_misc/debian.packages b/install_misc/debian.packages index 9c31206..9b8ad6d 100644 --- a/install_misc/debian.packages +++ b/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 diff --git a/install_misc/ubuntu.10.04.packages b/install_misc/ubuntu.10.04.packages index 17cfdc8..d849d6a 100644 --- a/install_misc/ubuntu.10.04.packages +++ b/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 diff --git a/install_misc/ubuntu.12.04.packages b/install_misc/ubuntu.12.04.packages index c63aaf3..5cf6017 100644 --- a/install_misc/ubuntu.12.04.packages +++ b/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 diff --git a/install_misc/ubuntu.packages b/install_misc/ubuntu.packages index aea298e..ff132c9 100644 --- a/install_misc/ubuntu.packages +++ b/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 -- 1.7.2.5