|
Lines 387-392
my $filter_borrower_categories = ( scalar @$borrower_category || scalar @$skip_b
Link Here
|
| 387 |
|
387 |
|
| 388 |
my @available_branches = Koha::Libraries->search()->get_column('branchcode'); |
388 |
my @available_branches = Koha::Libraries->search()->get_column('branchcode'); |
| 389 |
my %branches_to_process; |
389 |
my %branches_to_process; |
|
|
390 |
# If --branch was used, validate any branchcode passed in and mark them as branches to use |
| 390 |
for my $lib (@branches) { |
391 |
for my $lib (@branches) { |
| 391 |
unless ( grep { $_ eq $lib } @available_branches ) { |
392 |
unless ( grep { $_ eq $lib } @available_branches ) { |
| 392 |
pod2usage( |
393 |
pod2usage( |
|
Lines 396-401
for my $lib (@branches) {
Link Here
|
| 396 |
} |
397 |
} |
| 397 |
$branches_to_process{$lib} = 1; |
398 |
$branches_to_process{$lib} = 1; |
| 398 |
} |
399 |
} |
|
|
400 |
# If --skip-branch was used, validate any branchcode passed in and mark them as branches to *not* use |
| 399 |
if (@skip_branches) { |
401 |
if (@skip_branches) { |
| 400 |
for my $lib (@skip_branches) { |
402 |
for my $lib (@skip_branches) { |
| 401 |
unless ( grep { $_ eq $lib } @available_branches ) { |
403 |
unless ( grep { $_ eq $lib } @available_branches ) { |
|
Lines 406-411
if (@skip_branches) {
Link Here
|
| 406 |
} |
408 |
} |
| 407 |
} |
409 |
} |
| 408 |
%branches_to_process = map { $_ => 1 } @available_branches; |
410 |
%branches_to_process = map { $_ => 1 } @available_branches; |
|
|
411 |
# The mapped 0 values here will overwrite the corrosponding mapped 1 values |
| 412 |
# where the 0 values exist |
| 409 |
%branches_to_process = ( %branches_to_process, map { $_ => 0 } @skip_branches ); |
413 |
%branches_to_process = ( %branches_to_process, map { $_ => 0 } @skip_branches ); |
| 410 |
} |
414 |
} |
| 411 |
|
415 |
|
| 412 |
- |
|
|