Attachment 30788 Details for Bug 12760 – Bug 12760 - add restrictions purge to cleanup_database.pl (followup 1)

[patch] Bug 12760 - add restrictions purge to cleanup_database.pl (followup 1)

Bug-12760---add-restrictions-purge-to-cleanupdatab.patch (text/plain), 1.08 KB, created by Fridolin Somers on 2014-08-14 13:42:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Fridolin Somers

Created: 2014-08-14 13:42:00 UTC

Size: 1.08 KB

patch

obsolete

>From c6b061df3c1e87357cc1d8b03b9aa8c565da3225 Mon Sep 17 00:00:00 2001
>From: Fridolin Somers <fridolin.somers@biblibre.com>
>Date: Thu, 14 Aug 2014 15:15:48 +0200
>Subject: [PATCH] Bug 12760 - add restrictions purge to cleanup_database.pl
> (followup 1)
>
>Remove unused $query var
>Correct redefined $count var
>---
> misc/cronjobs/cleanup_database.pl | 3 +--
> 1 file changed, 1 insertion(+), 2 deletions(-)
>
>diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl
>index 49c0157..41038d0 100755
>--- a/misc/cronjobs/cleanup_database.pl
>+++ b/misc/cronjobs/cleanup_database.pl
>@@ -128,7 +128,6 @@ unless ( $sessions
> }
> 
> my $dbh = C4::Context->dbh();
>-my $query;
> my $sth;
> my $sth2;
> my $count;
>@@ -181,7 +180,7 @@ if ($mail) {
> 
>     $sth = $dbh->prepare("DELETE FROM message_queue WHERE time_queued < date_sub(curdate(), interval ? day)");
>     $sth->execute($mail) or die $dbh->errstr;
>-    my $count = $sth->rows;
>+    $count = $sth->rows;
>     $sth->finish;
> 
>     print "$count messages were deleted from the mail queue.\nDone with message_queue purge.\n" if ($verbose);
>-- 
>1.9.1

Actions: View | Diff | Splinter Review

Attachments on bug 12760: 30786 | 30788 | 30789 | 30813 | 30814 | 30815 | 30832 | 30833 | 30834