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

(-)a/misc/cronjobs/cleanup_database.pl (-8 / +7 lines)
Lines 229-235 cronlogaction() unless $confirm; Link Here
229
my $dbh = C4::Context->dbh();
229
my $dbh = C4::Context->dbh();
230
my $sth;
230
my $sth;
231
my $sth2;
231
my $sth2;
232
my $count;
233
232
234
if ( $sessions && !$sess_days ) {
233
if ( $sessions && !$sess_days ) {
235
    if ($verbose) {
234
    if ($verbose) {
Lines 254-260 elsif ( $sessions && $sess_days > 0 ) { Link Here
254
}
253
}
255
254
256
if ($zebraqueue_days) {
255
if ($zebraqueue_days) {
257
    $count = 0;
256
    my $count = 0;
258
    print "Zebraqueue purge triggered for $zebraqueue_days days.\n" if $verbose;
257
    print "Zebraqueue purge triggered for $zebraqueue_days days.\n" if $verbose;
259
    $sth = $dbh->prepare(
258
    $sth = $dbh->prepare(
260
        q{
259
        q{
Lines 280-285 if ($zebraqueue_days) { Link Here
280
}
279
}
281
280
282
if ($mail) {
281
if ($mail) {
282
    my $count = 0;
283
    print "Mail queue purge triggered for $mail days.\n" if $verbose;
283
    print "Mail queue purge triggered for $mail days.\n" if $verbose;
284
    $count = 0;
284
    $count = 0;
285
    $sth = $dbh->prepare(
285
    $sth = $dbh->prepare(
Lines 362-368 if ($pListShareInvites) { Link Here
362
362
363
if ($pDebarments) {
363
if ($pDebarments) {
364
    print "Expired patrons restrictions purge triggered for $pDebarments days.\n" if $verbose;
364
    print "Expired patrons restrictions purge triggered for $pDebarments days.\n" if $verbose;
365
    $count = PurgeDebarments($pDebarments, $confirm);
365
    my $count = PurgeDebarments($pDebarments, $confirm);
366
    if ( $verbose ) {
366
    if ( $verbose ) {
367
        say $confirm ? "$count restrictions were deleted." : "$count restrictions would have been deleted";
367
        say $confirm ? "$count restrictions were deleted." : "$count restrictions would have been deleted";
368
        say "Done with restrictions purge.";
368
        say "Done with restrictions purge.";
Lines 371-377 if ($pDebarments) { Link Here
371
371
372
if($allDebarments) {
372
if($allDebarments) {
373
    print "All expired patrons restrictions purge triggered.\n" if $verbose;
373
    print "All expired patrons restrictions purge triggered.\n" if $verbose;
374
    $count = PurgeDebarments(0, $confirm);
374
    my $count = PurgeDebarments(0, $confirm);
375
    if ( $verbose ) {
375
    if ( $verbose ) {
376
        say $confirm ? "$count restrictions were deleted." : "$count restrictions would have been deleted";
376
        say $confirm ? "$count restrictions were deleted." : "$count restrictions would have been deleted";
377
        say "Done with all restrictions purge.";
377
        say "Done with all restrictions purge.";
Lines 380-386 if($allDebarments) { Link Here
380
380
381
# Handle unsubscribe requests from GDPR consent form, depends on UnsubscribeReflectionDelay preference
381
# Handle unsubscribe requests from GDPR consent form, depends on UnsubscribeReflectionDelay preference
382
my $unsubscribed_patrons = Koha::Patrons->search_unsubscribed;
382
my $unsubscribed_patrons = Koha::Patrons->search_unsubscribed;
383
$count = $unsubscribed_patrons->count;
383
my $count = $unsubscribed_patrons->count;
384
$unsubscribed_patrons->lock( { expire => 1, remove => 1 } ) if $confirm;
384
$unsubscribed_patrons->lock( { expire => 1, remove => 1 } ) if $confirm;
385
say $confirm ? sprintf("Locked %d patrons", $count) : sprintf("%d patrons would have been locked", $count) if $verbose;
385
say $confirm ? sprintf("Locked %d patrons", $count) : sprintf("%d patrons would have been locked", $count) if $verbose;
386
386
Lines 588-594 sub RemoveOldSessions { Link Here
588
    $sth->execute or die $dbh->errstr;
588
    $sth->execute or die $dbh->errstr;
589
    $sth->bind_columns( \$id, \$a_session );
589
    $sth->bind_columns( \$id, \$a_session );
590
    $sth2  = $dbh->prepare(q{ DELETE FROM sessions WHERE id=? });
590
    $sth2  = $dbh->prepare(q{ DELETE FROM sessions WHERE id=? });
591
    $count = 0;
591
    my $count = 0;
592
592
593
    while ( $sth->fetch ) {
593
    while ( $sth->fetch ) {
594
        $lasttime = 0;
594
        $lasttime = 0;
Lines 650-656 sub PurgeZ3950 { Link Here
650
sub PurgeDebarments {
650
sub PurgeDebarments {
651
    require Koha::Patron::Debarments;
651
    require Koha::Patron::Debarments;
652
    my ( $days, $doit ) = @_;
652
    my ( $days, $doit ) = @_;
653
    $count = 0;
653
    my $count = 0;
654
    $sth   = $dbh->prepare(
654
    $sth   = $dbh->prepare(
655
        q{
655
        q{
656
            SELECT borrower_debarment_id
656
            SELECT borrower_debarment_id
657
- 

Return to bug 24153