@@ -, +, @@ delete --- misc/cronjobs/cleanup_database.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) --- a/misc/cronjobs/cleanup_database.pl +++ a/misc/cronjobs/cleanup_database.pl @@ -307,22 +307,25 @@ if($allDebarments) { # Handle unsubscribe requests from GDPR consent form, depends on UnsubscribeReflectionDelay preference my $unsubscribed_patrons = Koha::Patrons->search_unsubscribed; +$count = $unsubscribed_patrons->count; $unsubscribed_patrons->lock( { expire => 1, remove => 1 } ); -say sprintf "Locked %d patrons", $unsubscribed_patrons->count if $verbose; +say sprintf "Locked %d patrons", $count if $verbose; # Anonymize patron data, depending on PatronAnonymizeDelay my $anonymize_candidates = Koha::Patrons->search_anonymize_candidates( { locked => 1 } ); +$count = $anonymize_candidates->count; $anonymize_candidates->anonymize; -say sprintf "Anonymized %s patrons", $anonymize_candidates->count if $verbose; +say sprintf "Anonymized %s patrons", $count if $verbose; # Remove patron data, depending on PatronRemovalDelay (will raise an exception if problem encountered my $anonymized_patrons = Koha::Patrons->search_anonymized; +$count = $anonymized_patrons->count; $anonymized_patrons->delete( { move => 1 } ); if ($@) { warn $@; } elsif ($verbose) { - say sprintf "Deleted %d patrons", $anonymized_patrons->count; + say sprintf "Deleted %d patrons", $count; } if( $pExpSelfReg ) { --