From: Moritz Bunkus Date: Tue, 28 Aug 2012 12:08:40 +0000 (+0200) Subject: BackgroundJob-Manager sortierbar machen X-Git-Tag: release-3.0.0beta1~269^2~4 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a16a706880ae7181ad723ceb44c76775c597b202;p=kivitendo-erp.git BackgroundJob-Manager sortierbar machen --- 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') } ] ]);