diff --git a/webif/lib/queue.class b/webif/lib/queue.class index 59715a0..1a17800 100644 --- a/webif/lib/queue.class +++ b/webif/lib/queue.class @@ -146,7 +146,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.', @@ -163,12 +163,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} {