From 67cf8fc9b60a9487cb42d84b8a8ff482dde0d257 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 16 Oct 2015 11:42:48 +0100 Subject: [PATCH] Bug 14292: (follow-up) Make --category and --skip-category case insensitive "my" variable $borrower_category masks earlier declaration in same scope "my" variable $skip_borrower_category masks earlier declaration in same scope Signed-off-by: Jonathan Druart --- misc/cronjobs/longoverdue.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/misc/cronjobs/longoverdue.pl b/misc/cronjobs/longoverdue.pl index 1b374e9..b73d31f 100755 --- a/misc/cronjobs/longoverdue.pl +++ b/misc/cronjobs/longoverdue.pl @@ -253,8 +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 ]; +$borrower_category = [ map { uc $_ } @$borrower_category ]; +$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