@@ -, +, @@ --- Koha/Patron.pm | 12 +++++++++--- Koha/Patrons.pm | 13 ++++++++----- 2 files changed, 17 insertions(+), 8 deletions(-) --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -512,14 +512,20 @@ sub add_enrolment_fee_if_needed { =head3 checkouts -my $issues = $patron->checkouts +my $checkouts = $patron->checkouts =cut sub checkouts { my ($self) = @_; - my $issues = $self->_result->issues; - return Koha::Checkouts->_new_from_dbic( $issues ); + my $checkouts = $self->_result->issues; + return Koha::Checkouts->_new_from_dbic( $checkouts ); +} + +sub old_checkouts { + my ($self) = @_; + my $old_checkouts = $self->_result->old_issues; + return Koha::Old::Checkouts->_new_from_dbic( $old_checkouts ); } =head3 get_overdues --- a/Koha/Patrons.pm +++ a/Koha/Patrons.pm @@ -168,8 +168,9 @@ sub anonymise_issue_history { # The anonymisation should not fail quietly if AnonymousPatron is not a valid entry # Set it to undef (NULL) my $dtf = Koha::Database->new->schema->storage->datetime_parser; - my $old_issues_to_anonymise = $self->search_related( - 'old_issues', + my $nb_rows = 0; + while ( my $patron = $self->next ) { + my $old_issues_to_anonymise = $patron->old_checkouts->search( { ( $older_than_date @@ -178,9 +179,11 @@ sub anonymise_issue_history { : () ) } - ); - my $anonymous_patron = C4::Context->preference('AnonymousPatron') || undef; - $old_issues_to_anonymise->update( { 'old_issues.borrowernumber' => $anonymous_patron } ); + ); + my $anonymous_patron = C4::Context->preference('AnonymousPatron') || undef; + $nb_rows += $old_issues_to_anonymise->update( { 'old_issues.borrowernumber' => $anonymous_patron } ); + } + return $nb_rows; } =head3 type --