X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/782fd7884fb686cd2e336756dadeb4ab5d05a415..da99c7bcf4a8ec82d9bc1d0c75aaba6ba4cd69ea:/SL/DB/Manager/BackgroundJob.pm diff --git a/SL/DB/Manager/BackgroundJob.pm b/SL/DB/Manager/BackgroundJob.pm index 178f9d37a..1429a7856 100644 --- a/SL/DB/Manager/BackgroundJob.pm +++ b/SL/DB/Manager/BackgroundJob.pm @@ -2,8 +2,8 @@ package SL::DB::Manager::BackgroundJob; use strict; -use SL::DB::Helpers::Manager; -use base qw(SL::DB::Helpers::Manager); +use SL::DB::Helper::Manager; +use base qw(SL::DB::Helper::Manager); sub object_class { 'SL::DB::BackgroundJob' } @@ -15,8 +15,21 @@ sub cleanup { } sub get_all_need_to_run { - my $class = shift; - return $class->get_all(where => [ and => [ active => 1, next_run_at => { le => DateTime->now_local } ] ]); + my $class = shift; + + my $now = DateTime->now_local; + my @interval_args = (and => [ type => 'interval', + active => 1, + next_run_at => { le => $now } ]); + my @once_args = (and => [ type => 'once', + active => 1, + last_run_at => undef, + or => [ cron_spec => undef, + cron_spec => '', + next_run_at => undef, + next_run_at => { le => $now } ] ]); + + return $class->get_all(where => [ or => [ @interval_args, @once_args ] ]); } 1;