From a16a706880ae7181ad723ceb44c76775c597b202 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 28 Aug 2012 14:08:40 +0200 Subject: [PATCH] BackgroundJob-Manager sortierbar machen --- SL/DB/Manager/BackgroundJob.pm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/SL/DB/Manager/BackgroundJob.pm b/SL/DB/Manager/BackgroundJob.pm index 96af86312..1bb89ee7d 100644 --- a/SL/DB/Manager/BackgroundJob.pm +++ b/SL/DB/Manager/BackgroundJob.pm @@ -5,10 +5,17 @@ use strict; use SL::DB::Helper::Manager; use base qw(SL::DB::Helper::Manager); +use SL::DB::Helper::Sorted; + sub object_class { 'SL::DB::BackgroundJob' } __PACKAGE__->make_manager_methods; +sub _sort_spec { + return ( default => [ 'next_run_at', 1 ], + columns => { SIMPLE => 'ALL' } ); +} + sub cleanup { my $class = shift; $class->delete_all(where => [ and => [ type => 'once', last_run_at => { lt => DateTime->now_local->subtract(days => '1') } ] ]); -- 2.20.1