@@ -, +, @@ --- C4/Labels/Label.pm | 1 + t/Labels_split_lccn.t | 1 + 2 files changed, 2 insertions(+), 0 deletions(-) --- a/C4/Labels/Label.pm +++ a/C4/Labels/Label.pm @@ -109,6 +109,7 @@ sub _get_text_fields { sub _split_lccn { my ($lccn) = @_; + $lccn =~ s/\// /g; # in theory we should be able to simply remove all segmentation markers and arrive at the correct call number... $_ = $lccn; # lccn examples: 'HE8700.7 .P6T44 1983', 'BS2545.E8 H39 1996'; my (@parts) = m/ --- a/t/Labels_split_lccn.t +++ a/t/Labels_split_lccn.t @@ -33,6 +33,7 @@ BEGIN { 'HE8700.7 .P6T44 1983' => [qw(HE 8700.7 .P6 T44 1983)], 'BS2545.E8 H39 1996' => [qw(BS 2545 .E8 H39 1996)], 'NX512.S85 A4 2006' => [qw(NX 512 .S85 A4 2006)], + '917.1/0022/2' => [qw(917.1 0022 2)], }; } my $test_num = 1; --