View | Details | Raw Unified | Return to bug 40388
Collapse All | Expand All

(-)a/C4/ClassSplitRoutine/LCC.pm (-1 / +1 lines)
Lines 46-52 sub split_callnumber { Link Here
46
    # lccn examples: 'HE8700.7 .P6T44 1983', 'BS2545.E8 H39 1996';
46
    # lccn examples: 'HE8700.7 .P6T44 1983', 'BS2545.E8 H39 1996';
47
    my @lines = Library::CallNumber::LC->new($cn_item)->components();
47
    my @lines = Library::CallNumber::LC->new($cn_item)->components();
48
    unless ( scalar @lines && defined $lines[0] ) {
48
    unless ( scalar @lines && defined $lines[0] ) {
49
        Koha::Logger->get->debug( sprintf( 'regexp failed to match string: %s', $cn_item ) );
49
        Koha::Logger->get->debug( sprintf( 'regexp failed to match string: %s', $cn_item // q{} ) );
50
        @lines = $cn_item;    # if no match, just use the whole string.
50
        @lines = $cn_item;    # if no match, just use the whole string.
51
    }
51
    }
52
    my $LastPiece = pop @lines;
52
    my $LastPiece = pop @lines;
(-)a/t/Labels.t (-4 / +3 lines)
Lines 17-27 Link Here
17
#
17
#
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
18
# for context, see http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=2691
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use C4::ClassSplitRoutine::LCC qw( split_callnumber );
22
use C4::ClassSplitRoutine::LCC qw( split_callnumber );
24
use Test::More tests => 11;
23
use Test::More tests => 12;
24
use Test::NoWarnings;
25
25
26
BEGIN {
26
BEGIN {
27
    use_ok( 'C4::Labels::Label', qw( _get_text_fields _check_params _guide_box ) );
27
    use_ok( 'C4::Labels::Label', qw( _get_text_fields _check_params _guide_box ) );
28
- 

Return to bug 40388