|
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 |
- |
|
|