From a16a706880ae7181ad723ceb44c76775c597b202 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
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