From f000b747ffd54292e9c4fdb4ead673bc398b908d Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 21 Oct 2014 06:00:53 -0400 Subject: [PATCH] Bug 13124 - Record titles with parentheses causing label weirdness --- C4/Labels/Label.pm | 2 -- 1 files changed, 0 insertions(+), 2 deletions(-) diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index eb28006..e6df8e1 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -423,8 +423,6 @@ sub draw_label_text { else { if ($field_data) { $field_data =~ s/\/$//g; # Here we will strip out all trailing '/' in fields other than the call number... - $field_data =~ s/\(/\\\(/g; # Escape '(' and ')' for the pdf object stream... - $field_data =~ s/\)/\\\)/g; } eval{$Text::Wrap::columns = $self->{'text_wrap_cols'};}; my @line = split(/\n/ ,wrap('', '', $field_data)); -- 1.7.2.5