From 4b7f423a700f20081cb453b1ee16f8f4c4824ddd Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 10 Jan 2022 11:44:07 -0300 Subject: [PATCH] Bug 29843: Use in opac/opac-privacy.pl This patch makes the opac/opac-privacy.pl OPAC page use the new anonymize method. To test: 1. Have some checked-in materiales 2. Have OPACPrivacy enabled 3. Notice your checkouts history contains what you expect 4. Go to 'your privacy' 5. Click on 'Delete checkout history' => SUCCESS: It works, no crash. 6. Sign off :-D --- opac/opac-privacy.pl | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/opac/opac-privacy.pl b/opac/opac-privacy.pl index 2c96b7ffa9..b3ba672afe 100755 --- a/opac/opac-privacy.pl +++ b/opac/opac-privacy.pl @@ -40,13 +40,13 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user( } ); -my $patron = Koha::Patrons->find( $borrowernumber ); - my $op = $query->param("op"); my $privacy = $query->param("privacy"); my $privacy_guarantor_checkouts = $query->param("privacy_guarantor_checkouts"); my $privacy_guarantor_fines = $query->param("privacy_guarantor_fines"); +my $patron = Koha::Patrons->find( $borrowernumber );; + if ( $op eq "update_privacy" ) { if ( $patron ) { $patron->set({ @@ -69,10 +69,7 @@ elsif ( $op eq "delete_record" ) { if ( $all or $checkouts ) { # delete all reading records for items returned - my $rows = eval { - Koha::Patrons->search( { 'me.borrowernumber' => $borrowernumber } ) - ->anonymise_issue_history; - }; + my $rows = eval { $patron->old_checkouts->anonymize + 0 }; $template->param( ( -- 2.32.0