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 |
- |
|
|