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

(-)a/installer/data/mysql/atomicupdate/14702_warn.perl (-1 / +13 lines)
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
}

Return to bug 14702