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

(-)a/svc/split_callnumbers (-2 lines)
Lines 11-17 sub get_split_callnumbers { Link Here
11
    my $regexs = from_json( $query->param('regexs') );
11
    my $regexs = from_json( $query->param('regexs') );
12
    my $c = $query->param('callnumbers');
12
    my $c = $query->param('callnumbers');
13
    my @callnumbers = split "\n", $c;
13
    my @callnumbers = split "\n", $c;
14
    use Data::Printer colored => 1; warn p $c;
15
    my @callnumbers_split;
14
    my @callnumbers_split;
16
    for my $callnumber ( @callnumbers ) {
15
    for my $callnumber ( @callnumbers ) {
17
        my @lines = C4::ClassSplitRoutine::RegEx::split_callnumber($callnumber, $regexs);
16
        my @lines = C4::ClassSplitRoutine::RegEx::split_callnumber($callnumber, $regexs);
18
- 

Return to bug 15836