Lines 383-389
sub draw_label_text {
Link Here
|
383 |
my @label_lines; |
383 |
my @label_lines; |
384 |
# Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) |
384 |
# Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) |
385 |
my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k); |
385 |
my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k); |
386 |
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 |
386 |
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 |
387 |
if ($split_routine eq 'LCC' || $split_routine eq 'nlm') { # NLM and LCC should be split the same way |
387 |
if ($split_routine eq 'LCC' || $split_routine eq 'nlm') { # NLM and LCC should be split the same way |
388 |
@label_lines = C4::ClassSplitRoutine::LCC::split_callnumber($field_data); |
388 |
@label_lines = C4::ClassSplitRoutine::LCC::split_callnumber($field_data); |
389 |
@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 |
389 |
@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 |
390 |
- |
|
|