From adac9ed8ad18c69dfda28d080364d07727d53e07 Mon Sep 17 00:00:00 2001
From: Barton Chittenden <barton@bywatersolutions.com>
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 <barton@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 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