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

(-)a/C4/Labels/Label.pm (+1 lines)
Lines 109-114 sub _get_text_fields { Link Here
109
109
110
sub _split_lccn {
110
sub _split_lccn {
111
    my ($lccn) = @_;
111
    my ($lccn) = @_;
112
    $lccn =~ s/\// /g;   # in theory we should be able to simply remove all segmentation markers and arrive at the correct call number...
112
    $_ = $lccn;
113
    $_ = $lccn;
113
    # lccn examples: 'HE8700.7 .P6T44 1983', 'BS2545.E8 H39 1996';
114
    # lccn examples: 'HE8700.7 .P6T44 1983', 'BS2545.E8 H39 1996';
114
    my (@parts) = m/
115
    my (@parts) = m/
(-)a/t/Labels_split_lccn.t (-1 / +1 lines)
Lines 33-38 BEGIN { Link Here
33
            'HE8700.7 .P6T44 1983' => [qw(HE 8700.7 .P6 T44 1983)],
33
            'HE8700.7 .P6T44 1983' => [qw(HE 8700.7 .P6 T44 1983)],
34
            'BS2545.E8 H39 1996'   => [qw(BS 2545 .E8 H39 1996)],
34
            'BS2545.E8 H39 1996'   => [qw(BS 2545 .E8 H39 1996)],
35
            'NX512.S85 A4 2006'    => [qw(NX 512 .S85 A4 2006)],
35
            'NX512.S85 A4 2006'    => [qw(NX 512 .S85 A4 2006)],
36
            '917.1/0022/2'         => [qw(917.1 0022 2)],
36
        };
37
        };
37
    }
38
    }
38
    my $test_num = 1;
39
    my $test_num = 1;
39
- 

Return to bug 2500