From: Chris Nighswonger <cnighswonger@foundations.edu>
Date: Fri, 11 Jul 2008 11:40:19 +0000 (-0400)
Subject: Further fixes to Labels.pm including escaping '(' and ')' for the PDF distiller
X-Git-Tag: ffzg~149
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=1d9d3cbcbe0c157c823fe023b84c65a65d48e6e1;p=koha.git

Further fixes to Labels.pm including escaping '(' and ')' for the PDF distiller

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---

diff --git a/C4/Labels.pm b/C4/Labels.pm
index 3387a113dc..82d4c6b228 100644
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@@ -999,12 +999,23 @@ sub DrawSpineText {
                     push @strings, $str;    # if $nowrap == 1 do not wrap or remove segmentation markers...
                 }
             } else {
-                $str =~ s/\/$//g;    # Here we will strip out all trailing '/' in fields other than the call number...
-                # Wrap text lines exceeding $text_wrap_cols length, truncating all text beyond the second line...
+                $str =~ s/\/$//g;       # Here we will strip out all trailing '/' in fields other than the call number...
+                $str =~ s/\(/\\\(/g;    # Escape '(' and ')' for the postscript stream...
+                $str =~ s/\)/\\\)/g;
+                # Wrap text lines exceeding $text_wrap_cols length...
                 $Text::Wrap::columns = $text_wrap_cols;
-                my @title = split(/\n/ ,wrap('', '', $str));
-                pop @title if scalar(@title) > 2;
-                push(@strings, @title);
+                my @line = split(/\n/ ,wrap('', '', $str));
+                # If this is a title field, limit to two lines; all others limit to one...
+                if ($field->{code} eq 'title' && scalar(@line) >= 2) {
+                    while (scalar(@line) > 2) {
+                        pop @line;
+                    }
+                } else {
+                    while (scalar(@line) > 1) {
+                        pop @line;
+                    }
+                }
+                push(@strings, @line);
             }
             # loop for each string line
             foreach my $str (@strings) {