From f966c0f84cf76565a403251d4f783854b7ef3a49 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Demians?= <f.demians@tamil.fr>
Date: Fri, 9 Apr 2010 18:47:26 +0200
Subject: [PATCH] Allow UNIMARC item callnumber splitting

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 C4/Labels/Label.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm
index e16e244c25..9fb09f368f 100644
--- a/C4/Labels/Label.pm
+++ b/C4/Labels/Label.pm
@@ -405,7 +405,8 @@ sub draw_label_text {
             $field_data =~ s/\r//g;
         }
         my @label_lines;
-        my @callnumber_list = ('itemcallnumber', '050a', '050b', '082a', '952o'); # Fields which hold call number data  FIXME: ( 060? 090? 092? 099? )
+        # 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') {
                 @label_lines = _split_lccn($field_data);
-- 
2.20.1