Lines 301-307
$borrower_category = [ map { uc $_ } @$borrower_category ];
Link Here
|
301 |
$skip_borrower_category = [ map { uc $_} @$skip_borrower_category ]; |
301 |
$skip_borrower_category = [ map { uc $_} @$skip_borrower_category ]; |
302 |
my %category_to_process; |
302 |
my %category_to_process; |
303 |
for my $cat ( @$borrower_category ) { |
303 |
for my $cat ( @$borrower_category ) { |
304 |
unless ( grep { /^$cat$/ } @available_categories ) { |
304 |
unless ( grep { $_ eq $cat } @available_categories ) { |
305 |
pod2usage( |
305 |
pod2usage( |
306 |
'-exitval' => 1, |
306 |
'-exitval' => 1, |
307 |
'-message' => "The category $cat does not exist in the database", |
307 |
'-message' => "The category $cat does not exist in the database", |
Lines 311-317
for my $cat ( @$borrower_category ) {
Link Here
|
311 |
} |
311 |
} |
312 |
if ( @$skip_borrower_category ) { |
312 |
if ( @$skip_borrower_category ) { |
313 |
for my $cat ( @$skip_borrower_category ) { |
313 |
for my $cat ( @$skip_borrower_category ) { |
314 |
unless ( grep { /^$cat$/ } @available_categories ) { |
314 |
unless ( grep { $_ eq $cat } @available_categories ) { |
315 |
pod2usage( |
315 |
pod2usage( |
316 |
'-exitval' => 1, |
316 |
'-exitval' => 1, |
317 |
'-message' => "The category $cat does not exist in the database", |
317 |
'-message' => "The category $cat does not exist in the database", |
Lines 329-335
$itemtype = [ map { uc $_ } @$itemtype ];
Link Here
|
329 |
$skip_itemtype = [ map { uc $_} @$skip_itemtype ]; |
329 |
$skip_itemtype = [ map { uc $_} @$skip_itemtype ]; |
330 |
my %itemtype_to_process; |
330 |
my %itemtype_to_process; |
331 |
for my $it ( @$itemtype ) { |
331 |
for my $it ( @$itemtype ) { |
332 |
unless ( grep { /^$it$/ } @available_itemtypes ) { |
332 |
unless ( grep { $_ eq $it } @available_itemtypes ) { |
333 |
pod2usage( |
333 |
pod2usage( |
334 |
'-exitval' => 1, |
334 |
'-exitval' => 1, |
335 |
'-message' => "The itemtype $it does not exist in the database", |
335 |
'-message' => "The itemtype $it does not exist in the database", |
Lines 339-345
for my $it ( @$itemtype ) {
Link Here
|
339 |
} |
339 |
} |
340 |
if ( @$skip_itemtype ) { |
340 |
if ( @$skip_itemtype ) { |
341 |
for my $it ( @$skip_itemtype ) { |
341 |
for my $it ( @$skip_itemtype ) { |
342 |
unless ( grep { /^$it$/ } @available_itemtypes ) { |
342 |
unless ( grep { $_ eq $it } @available_itemtypes ) { |
343 |
pod2usage( |
343 |
pod2usage( |
344 |
'-exitval' => 1, |
344 |
'-exitval' => 1, |
345 |
'-message' => "The itemtype $it does not exist in the database", |
345 |
'-message' => "The itemtype $it does not exist in the database", |