3 # Copyright 2011, ByWater Solutions.
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 use Koha::Script -cron;
25 use C4::Log qw( cronlogaction );
28 use Koha::Old::Checkouts;
31 use Date::Calc qw( Add_Delta_Days Today );
32 use Getopt::Long qw( GetOptions );
36 Usage: $0 --days DAYS [-h|--help]
37 --days DAYS (MANDATORY) anonymise patron history that is older than DAYS days.
38 -v --verbose gives a little more information
39 -h --help prints this help message, and exits, ignoring all
41 Note: If the system preference 'AnonymousPatron' is not defined, NULL will be used.
46 my ( $help, $days, $verbose );
51 'v|verbose' => \$verbose,
59 print "The days parameter is mandatory.\n\n";
65 my ($year,$month,$day) = Today();
66 my ($newyear,$newmonth,$newday) = Add_Delta_Days ($year,$month,$day,(-1)*$days);
67 my $formatdate = sprintf "%4d-%02d-%02d",$newyear,$newmonth,$newday;
68 $verbose and print "Checkouts and holds before $formatdate will be anonymised.\n";
70 my $rows = Koha::Old::Checkouts
71 ->filter_by_anonymizable
72 ->filter_by_last_update( { days => $days, timestamp_column_name => 'returndate' })
75 $verbose and print int($rows) . " checkouts anonymised.\n";
77 $rows = Koha::Old::Holds
78 ->filter_by_anonymizable
79 ->filter_by_last_update( { days => $days } )
82 $verbose and print int($rows) . " holds anonymised.\n";