From adac9ed8ad18c69dfda28d080364d07727d53e07 Mon Sep 17 00:00:00 2001 From: Barton Chittenden Date: Thu, 15 Oct 2015 07:09:16 -0700 Subject: [PATCH] bug 14292: Make --category and --skip-category case insensitive Signed-off-by: Barton Chittenden Signed-off-by: Jonathan Druart --- misc/cronjobs/longoverdue.pl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/misc/cronjobs/longoverdue.pl b/misc/cronjobs/longoverdue.pl index 6c8b41e..1b374e9 100755 --- a/misc/cronjobs/longoverdue.pl +++ b/misc/cronjobs/longoverdue.pl @@ -253,6 +253,8 @@ sub longoverdue_sth { my $dbh = C4::Context->dbh; my @available_categories = map { uc $_->[0] } @{ $dbh->selectall_arrayref(q|SELECT categorycode FROM categories|) }; +my $borrower_category = [ map { uc $_} @$borrower_category ]; +my $skip_borrower_category = [ map { uc $_} @$skip_borrower_category ]; my %category_to_process; for my $cat ( @$borrower_category ) { unless ( grep { /^$cat$/ } @available_categories ) { -- 2.1.0