Lines 423-430
sub draw_label_text {
Link Here
|
423 |
else { |
423 |
else { |
424 |
if ($field_data) { |
424 |
if ($field_data) { |
425 |
$field_data =~ s/\/$//g; # Here we will strip out all trailing '/' in fields other than the call number... |
425 |
$field_data =~ s/\/$//g; # Here we will strip out all trailing '/' in fields other than the call number... |
426 |
$field_data =~ s/\(/\\\(/g; # Escape '(' and ')' for the pdf object stream... |
426 |
# Escaping the parens was causing odd output, see bug 13124 |
427 |
$field_data =~ s/\)/\\\)/g; |
427 |
# $field_data =~ s/\(/\\\(/g; # Escape '(' and ')' for the pdf object stream... |
|
|
428 |
# $field_data =~ s/\)/\\\)/g; |
428 |
} |
429 |
} |
429 |
eval{$Text::Wrap::columns = $self->{'text_wrap_cols'};}; |
430 |
eval{$Text::Wrap::columns = $self->{'text_wrap_cols'};}; |
430 |
my @line = split(/\n/ ,wrap('', '', $field_data)); |
431 |
my @line = split(/\n/ ,wrap('', '', $field_data)); |
431 |
- |
|
|