View | Details | Raw Unified | Return to bug 13124
Collapse All | Expand All

(-)a/C4/Labels/Label.pm (-3 / +3 lines)
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
- 

Return to bug 13124