Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 29843: Use in tools/cleanborrowers.pl

Browse source 
This patch makes tools/cleanborrowers.pl use the new methods.

Signed-off-by: Andrew Fuerste-Henry <andrew@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Tomás Cohen Arazi 2022-01-10 12:14:11 -03:00 committed by Fridolin Somers
parent d976d65f62
commit daff241b1d
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/cleanborrowers.pl
View file

@ -38,6 +38,7 @@ use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Members qw( GetBorrowersToExpunge );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Old::Checkouts;
use Koha::Patron::Categories;
use Koha::Patrons;
use Koha::List::Patron qw( GetPatronLists );
@ -155,7 +156,12 @@ elsif ( $step == 3 ) {
# Anonymising all members
if ($do_anonym) {
#FIXME: anonymisation errors are not handled
my $rows = Koha::Patrons->search_patrons_to_anonymise( { before => $last_issue_date } )->anonymise_issue_history( { before => $last_issue_date } );
my $rows = Koha::Old::Checkouts
->filter_by_anonymizable
->filter_by_last_update({
to => $last_issue_date, timestamp_column_name => 'returndate' })
->anonymize;
$template->param(
do_anonym => $rows,
);