From 15683e60e4ff9feb8b678476bc82635aca193a57 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Wed, 13 Apr 2011 10:03:03 -0400 Subject: [PATCH] Bug 3543: split NLM call numbers in label creator Split NLM call numbers using the same rules as those used for Library of Congress call numbers. Signed-off-by: Ian Walls Signed-off-by: Chris Cormack (cherry picked from commit 139f7343f42c32e4bc1981bc072cf6ba05b20c0b) Signed-off-by: Chris Nighswonger --- C4/Labels/Label.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index 0ea2de93cb..0c98d6f2aa 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -408,7 +408,7 @@ sub draw_label_text { # Fields which hold call number data FIXME: ( 060? 090? 092? 099? ) my @callnumber_list = qw(itemcallnumber 050a 050b 082a 952o 995k); 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 - if ($cn_source eq 'lcc') { + if ($cn_source eq 'lcc' || $cn_source eq 'nlm') { # NLM and LCC should be split the same way @label_lines = _split_lccn($field_data); @label_lines = _split_ccn($field_data) if !@label_lines; # If it was not a true lccn, try it as a custom call number push (@label_lines, $field_data) if !@label_lines; # If it was not that, send it on unsplit -- 2.39.5