Attachment 130268 Details for Bug 29843 – Bug 29843: Use in tools/cleanborrowers.pl

[patch] Bug 29843: Use in tools/cleanborrowers.pl

Bug-29843-Use-in-toolscleanborrowerspl.patch (text/plain), 1.62 KB, created by Martin Renvoize (ashimema) on 2022-02-08 09:40:15 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Martin Renvoize (ashimema)

Created: 2022-02-08 09:40:15 UTC

Size: 1.62 KB

patch

obsolete

>From b6701985f25deeaced13d5a2a15c7b8aa2a4a4c8 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>
>---
> 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.20.1

Actions: View | Diff | Splinter Review

Attachments on bug 29843: 129269 | 129270 | 129271 | 129272 | 129274 | 129275 | 129276 | 129277 | 129278 | 129438 | 129439 | 129440 | 129441 | 129442 | 129445 | 129446 | 129447 | 129448 | 129449 | 129475 | 129476 | 129477 | 129478 | 129479 | 129492 | 129493 | 129494 | 129495 | 129496 | 130264 | 130265 | 130266 | 130267 | 130268 | 130335