View | Details | Raw Unified | Return to bug 14292
Collapse All | Expand All

(-)a/misc/cronjobs/longoverdue.pl (-3 / +2 lines)
Lines 253-260 sub longoverdue_sth { Link Here
253
253
254
my $dbh = C4::Context->dbh;
254
my $dbh = C4::Context->dbh;
255
my @available_categories = map { uc $_->[0] } @{ $dbh->selectall_arrayref(q|SELECT categorycode FROM categories|) };
255
my @available_categories = map { uc $_->[0] } @{ $dbh->selectall_arrayref(q|SELECT categorycode FROM categories|) };
256
my $borrower_category = [ map { uc $_} @$borrower_category ];
256
$borrower_category = [ map { uc $_ } @$borrower_category ];
257
my $skip_borrower_category = [ map { uc $_} @$skip_borrower_category ];
257
$skip_borrower_category = [ map { uc $_} @$skip_borrower_category ];
258
my %category_to_process;
258
my %category_to_process;
259
for my $cat ( @$borrower_category ) {
259
for my $cat ( @$borrower_category ) {
260
    unless ( grep { /^$cat$/ } @available_categories ) {
260
    unless ( grep { /^$cat$/ } @available_categories ) {
261
- 

Return to bug 14292