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

(-)a/C4/Labels/Label.pm (-2 / +1 lines)
Lines 408-414 sub draw_label_text { Link Here
408
        # Fields which hold call number data  FIXME: ( 060? 090? 092? 099? )
408
        # Fields which hold call number data  FIXME: ( 060? 090? 092? 099? )
409
        my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k);
409
        my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k);
410
        if ((grep {$field->{'code'} =~ m/$_/} @callnumber_list) and ($self->{'printing_type'} eq 'BIB') and ($self->{'callnum_split'})) { # If the field contains the call number, we do some sp
410
        if ((grep {$field->{'code'} =~ m/$_/} @callnumber_list) and ($self->{'printing_type'} eq 'BIB') and ($self->{'callnum_split'})) { # If the field contains the call number, we do some sp
411
            if ($cn_source eq 'lcc') {
411
            if ($cn_source eq 'lcc' || $cn_source eq 'nlm') { # NLM and LCC should be split the same way
412
                @label_lines = _split_lccn($field_data);
412
                @label_lines = _split_lccn($field_data);
413
                @label_lines = _split_ccn($field_data) if !@label_lines;    # If it was not a true lccn, try it as a custom call number
413
                @label_lines = _split_ccn($field_data) if !@label_lines;    # If it was not a true lccn, try it as a custom call number
414
                push (@label_lines, $field_data) if !@label_lines;         # If it was not that, send it on unsplit
414
                push (@label_lines, $field_data) if !@label_lines;         # If it was not that, send it on unsplit
415
- 

Return to bug 3543