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

(-)a/C4/Labels/Label.pm (-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...
427
                $field_data =~ s/\)/\\\)/g;
428
            }
426
            }
429
            eval{$Text::Wrap::columns = $self->{'text_wrap_cols'};};
427
            eval{$Text::Wrap::columns = $self->{'text_wrap_cols'};};
430
            my @line = split(/\n/ ,wrap('', '', $field_data));
428
            my @line = split(/\n/ ,wrap('', '', $field_data));
431
- 

Return to bug 13124