@@ -, +, @@ case insensitive --- misc/cronjobs/longoverdue.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/misc/cronjobs/longoverdue.pl +++ a/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 ) { --