From daff241b1da95f51780c02fe54557c64e1aac284 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Mon, 10 Jan 2022 12:14:11 -0300
Subject: [PATCH] Bug 29843: Use in tools/cleanborrowers.pl

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>
---
 tools/cleanborrowers.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl
index add68a23bc..42a79545e5 100755
--- a/tools/cleanborrowers.pl
+++ b/tools/cleanborrowers.pl
@@ -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,
         );
-- 
2.39.5