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 |
- |
|
|