misc/cronjobs/delete_patrons.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Pod::Usage;
   6 use Getopt::Long;
   7
   8 use C4::Members;
   9 use Koha::DateUtils;
  10 use Koha::Patrons;
  11 use C4::Log;
  12
  13 my ( $help, $verbose, $not_borrowed_since, $expired_before, $last_seen,
  14     $category_code, $branchcode, $confirm );
  15 GetOptions(
  16     'h|help'                 => \$help,
  17     'v|verbose'              => \$verbose,
  18     'not_borrowed_since:s'   => \$not_borrowed_since,
  19     'expired_before:s'       => \$expired_before,
  20     'last_seen:s'            => \$last_seen,
  21     'category_code:s'        => \$category_code,
  22     'library:s'              => \$branchcode,
  23     'c|confirm'              => \$confirm,
  24 ) || pod2usage(1);
  25
  26 if ($help) {
  27     pod2usage(1);
  28 }
  29
  30 $not_borrowed_since = dt_from_string( $not_borrowed_since, 'iso' )
  31   if $not_borrowed_since;
  32
  33 $expired_before = dt_from_string( $expired_before, 'iso' )
  34   if $expired_before;
  35
  36 if ( $last_seen and not C4::Context->preference('TrackLastPatronActivity') ) {
  37     pod2usage(q{The --last_seen option cannot be used with TrackLastPatronActivity turned off});
  38 }
  39
  40 unless ( $not_borrowed_since or $expired_before or $last_seen or $category_code or $branchcode ) {
  41     pod2usage(q{At least one filter is mandatory});
  42 }
  43
  44 cronlogaction();
  45
  46 my $members = GetBorrowersToExpunge(
  47     {
  48         not_borrowed_since => $not_borrowed_since,
  49         expired_before       => $expired_before,
  50         last_seen            => $last_seen,
  51         category_code        => $category_code,
  52         branchcode           => $branchcode,
  53     }
  54 );
  55
  56 unless ($confirm) {
  57     say "Doing a dry run; no patron records will actually be deleted.";
  58     say "Run again with --confirm to delete the records.";
  59 }
  60
  61 say scalar(@$members) . " patrons to delete";
  62
  63 my $dbh = C4::Context->dbh;
  64 $dbh->{RaiseError} = 1;
  65 $dbh->{PrintError} = 0;
  66
  67 $dbh->{AutoCommit} = 0; # use transactions to avoid partial deletes
  68 my $deleted = 0;
  69 for my $member (@$members) {
  70     print "Trying to delete patron $member->{borrowernumber}... "
  71       if $verbose;
  72
  73     my $borrowernumber = $member->{borrowernumber};
  74     my $flags = C4::Members::patronflags( $member );
  75     if ( my $charges = $flags->{CHARGES}{amount} ) {
  76         say "Failed to delete patron $borrowernumber: patron has $charges in fines";
  77         next;
  78     }
  79
  80     if ( $confirm ) {
  81         my $patron = Koha::Patrons->find( $borrowernumber );
  82         my $deleted = eval { $patron->move_to_deleted; };
  83         if ($@ or not $deleted) {
  84             say "Failed to delete patron $borrowernumber, cannot move it" . ( $@ ? ": ($@)" : "" );
  85             $dbh->rollback;
  86             next;
  87         }
  88
  89         eval {
  90             C4::Members::HandleDelBorrower( $borrowernumber );
  91         };
  92         if ($@) {
  93             say "Failed to delete patron $borrowernumber, error handling its lists: ($@)";
  94             $dbh->rollback;
  95             next;
  96         }
  97         eval { $patron->delete if $confirm; };
  98         if ($@) {
  99             say "Failed to delete patron $borrowernumber: $@)";
 100             $dbh->rollback;
 101             next;
 102         }
 103     }
 104     $dbh->commit;
 105     $deleted++;
 106     say "OK" if $verbose;
 107 }
 108
 109 say "$deleted patrons deleted";
 110
 111 =head1 NAME
 112
 113 delete_patrons - This script deletes patrons
 114
 115 =head1 SYNOPSIS
 116
 117 delete_patrons.pl [-h|--help] [-v|--verbose] [-c|--confirm] [--not_borrowed_since=DATE] [--expired_before=DATE] [--last-seen=DATE] [--category_code=CAT] [--library=LIBRARY]
 118
 119 Dates should be in ISO format, e.g., 2013-07-19, and can be generated
 120 with `date -d '-3 month' "+%Y-%m-%d"`.
 121
 122 The options to select the patron records to delete are cumulative.  For
 123 example, supplying both --expired_before and --library specifies that
 124 that patron records must meet both conditions to be selected for deletion.
 125
 126 =head1 OPTIONS
 127
 128 =over
 129
 130 =item B<-h|--help>
 131
 132 Print a brief help message
 133
 134 =item B<--not_borrowed_since>
 135
 136 Delete patrons who have not borrowed since this date.
 137
 138 =item B<--expired_before>
 139
 140 Delete patrons with an account expired before this date.
 141
 142 =item B<--last_seen>
 143
 144 Delete patrons who have not been connected since this date.
 145
 146 The system preference TrackLastPatronActivity must be enabled to use this option.
 147
 148 =item B<--category_code>
 149
 150 Delete patrons who have this category code.
 151
 152 =item B<--library>
 153
 154 Delete patrons in this library.
 155
 156 =item B<-c|--confirm>
 157
 158 This flag must be provided in order for the script to actually
 159 delete patron records.  If it is not supplied, the script will
 160 only report on the patron records it would have deleted.
 161
 162 =item B<-v|--verbose>
 163
 164 Verbose mode.
 165
 166 =back
 167
 168 =head1 AUTHOR
 169
 170 Jonathan Druart <jonathan.druart@biblibre.com>
 171
 172 =head1 COPYRIGHT
 173
 174 Copyright 2013 BibLibre
 175
 176 =head1 LICENSE
 177
 178 This file is part of Koha.
 179
 180 Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
 181 Foundation; either version 3 of the License, or (at your option) any later version.
 182
 183 You should have received a copy of the GNU General Public License along
 184 with Koha; if not, write to the Free Software Foundation, Inc.,
 185 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 186
 187 =cut