View | Details | Raw Unified | Return to bug 24114
Collapse All | Expand All

(-)a/misc/cronjobs/cleanup_database.pl (-4 / +6 lines)
Lines 332-353 if($allDebarments) { Link Here
332
332
333
# Handle unsubscribe requests from GDPR consent form, depends on UnsubscribeReflectionDelay preference
333
# Handle unsubscribe requests from GDPR consent form, depends on UnsubscribeReflectionDelay preference
334
my $unsubscribed_patrons = Koha::Patrons->search_unsubscribed;
334
my $unsubscribed_patrons = Koha::Patrons->search_unsubscribed;
335
$count = $unsubscribed_patrons->count;
335
$unsubscribed_patrons->lock( { expire => 1, remove => 1 } );
336
$unsubscribed_patrons->lock( { expire => 1, remove => 1 } );
336
say sprintf "Locked %d patrons", $unsubscribed_patrons->count if $verbose;
337
say sprintf "Locked %d patrons", $count if $verbose;
337
338
338
# Anonymize patron data, depending on PatronAnonymizeDelay
339
# Anonymize patron data, depending on PatronAnonymizeDelay
339
my $anonymize_candidates = Koha::Patrons->search_anonymize_candidates( { locked => 1 } );
340
my $anonymize_candidates = Koha::Patrons->search_anonymize_candidates( { locked => 1 } );
341
$count = $anonymize_candidates->count;
340
$anonymize_candidates->anonymize;
342
$anonymize_candidates->anonymize;
341
say sprintf "Anonymized %s patrons", $anonymize_candidates->count if $verbose;
343
say sprintf "Anonymized %s patrons", $count if $verbose;
342
344
343
# Remove patron data, depending on PatronRemovalDelay (will raise an exception if problem encountered
345
# Remove patron data, depending on PatronRemovalDelay (will raise an exception if problem encountered
344
my $anonymized_patrons = Koha::Patrons->search_anonymized;
346
my $anonymized_patrons = Koha::Patrons->search_anonymized;
347
$count = $anonymized_patrons->count;
345
$anonymized_patrons->delete( { move => 1 } );
348
$anonymized_patrons->delete( { move => 1 } );
346
if ($@) {
349
if ($@) {
347
    warn $@;
350
    warn $@;
348
}
351
}
349
elsif ($verbose) {
352
elsif ($verbose) {
350
    say sprintf "Deleted %d patrons", $anonymized_patrons->count;
353
    say sprintf "Deleted %d patrons", $count;
351
}
354
}
352
355
353
if( $pExpSelfReg ) {
356
if( $pExpSelfReg ) {
354
- 

Return to bug 24114