From aaf9b3dcdd3c6f03ef5f4c05e03545cb384e922c Mon Sep 17 00:00:00 2001 From: df Date: Wed, 19 May 2021 09:25:34 +0000 Subject: [PATCH] Fix incorrectly constructed query list to restore purging completed entries A constant list included an item that needed to be evaluated. --- webif/lib/queue.class | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/webif/lib/queue.class b/webif/lib/queue.class index 4e621ee..9006eb8 100644 --- a/webif/lib/queue.class +++ b/webif/lib/queue.class @@ -147,7 +147,7 @@ proc {queue dbqueryl} {query_list {txn_mode ""}} { proc {queue startup} {{days 7}} { if {$days == 0} { set days 7 } - return [queue dbqueryl { { { + return [queue dbqueryl [list { { update queue set status = 'INTERRUPTED', log = 'Job will be retried automatically.', @@ -164,12 +164,12 @@ proc {queue startup} {{days 7}} { update queue set status = 'PENDING' where status = 'DEFER' - } } { { + } } [list { delete from queue where status in ('COMPLETE', 'FAILED') and submitted < %s } [expr [clock seconds] - 86400 * $days] - } } ] + ] ] ] } proc {queue fetch} {file action} {