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