Lines 378-384
Link Here
|
378 |
my @label_lines; |
378 |
my @label_lines; |
379 |
# Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) |
379 |
# Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) |
380 |
my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k); |
380 |
my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k); |
381 |
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 |
381 |
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 |
382 |
if ($split_routine eq 'LCC' || $split_routine eq 'nlm') { # NLM and LCC should be split the same way |
382 |
if ($split_routine eq 'LCC' || $split_routine eq 'nlm') { # NLM and LCC should be split the same way |
383 |
@label_lines = C4::ClassSplitRoutine::LCC::split_callnumber($field_data); |
383 |
@label_lines = C4::ClassSplitRoutine::LCC::split_callnumber($field_data); |
384 |
@label_lines = C4::ClassSplitRoutine::Generic::split_callnumber($field_data) unless @label_lines; # If it was not a true lccn, try it as a custom call number |
384 |
@label_lines = C4::ClassSplitRoutine::Generic::split_callnumber($field_data) unless @label_lines; # If it was not a true lccn, try it as a custom call number |