Line 0
Link Here
|
0 |
- |
1 |
use C4::Context; |
|
|
2 |
|
3 |
my $dbh = C4::Context->dbh; |
4 |
my $a = $dbh->selectall_arrayref( |
5 |
"SELECT categorycode FROM categories WHERE IFNULL(reservefee,0) <> 0", |
6 |
); |
7 |
my @b = map { $_->[0]; } @$a; |
8 |
if( @$a ) { |
9 |
print "WARNING !!!\n"; |
10 |
print "Your library has patron categories with a hold fee.\n"; |
11 |
print "This version of Koha will start charging these patrons again when placing a hold; a bug in this regard has been solved. See bugzilla report 14702. If you do not want such charges, please check your Patron categories and clear the hold fee.\n"; |
12 |
print "The relevant categories are: ". ( join ',', @b ). ".\n\n"; |
13 |
} |