Line
Link Here
|
0 |
-- a/src/C4/Labels/Label.pm 2019-08-28 12:08:53.743267103 +0300 |
0 |
++ b/src/C4/Labels/Label.pm 2019-08-28 13:07:22.603565013 +0300 |
Lines 428-434
Link Here
|
428 |
my @label_lines; |
428 |
my @label_lines; |
429 |
# Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) |
429 |
# Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) |
430 |
my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k); |
430 |
my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k); |
431 |
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 |
431 |
if ((grep {$field->{'code'} =~ m/$_/} @callnumber_list) and ($self->{'printing_type'} ne 'BAR') and ($self->{'callnum_split'})) { # If the field contains the call number, we do some sp |
432 |
if ($cn_source eq 'lcc' || $cn_source eq 'nlm') { # NLM and LCC should be split the same way |
432 |
if ($cn_source eq 'lcc' || $cn_source eq 'nlm') { # NLM and LCC should be split the same way |
433 |
@label_lines = _split_lccn($field_data); |
433 |
@label_lines = _split_lccn($field_data); |
434 |
@label_lines = _split_ccn($field_data) if !@label_lines; # If it was not a true lccn, try it as a custom call number |
434 |
@label_lines = _split_ccn($field_data) if !@label_lines; # If it was not a true lccn, try it as a custom call number |