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::DateUtils qw(dt_from_string output_pref);
29 use Koha::Old::Checkouts;
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 $command_line_options = join(" ",@ARGV);
48 my ( $help, $days, $verbose );
53 'v|verbose' => \$verbose,
61 print "The days parameter is mandatory.\n\n";
65 cronlogaction({ info => $command_line_options });
67 my $date = dt_from_string->subtract( days => $days );
69 print "Checkouts and holds before " . output_pref( { dt => $date, dateformat => 'iso', dateonly => 1 } ) . " will be anonymised.\n"
72 my $rows = Koha::Old::Checkouts
73 ->filter_by_anonymizable
74 ->filter_by_last_update( { days => $days, timestamp_column_name => 'returndate' })
77 $verbose and print int($rows) . " checkouts anonymised.\n";
79 $rows = Koha::Old::Holds
80 ->filter_by_anonymizable
81 ->filter_by_last_update( { days => $days } )
84 $verbose and print int($rows) . " holds anonymised.\n";
86 cronlogaction({ action => 'End', info => "COMPLETED" });