1 package SL::Controller::BackgroundJobHistory;
5 use parent qw(SL::Controller::Base);
7 use SL::Controller::Helper::GetModels;
8 use SL::Controller::Helper::Sorted;
9 use SL::DB::BackgroundJobHistory;
10 use SL::Helper::Flash;
11 use SL::System::TaskServer;
13 use Rose::Object::MakeMethods::Generic
15 scalar => [ qw(history) ],
16 'scalar --get_set_init' => [ qw(task_server) ],
19 __PACKAGE__->run_before('check_auth');
20 __PACKAGE__->run_before('add_stylesheet');
21 __PACKAGE__->run_before('check_task_server');
23 __PACKAGE__->make_sorted(
24 DEFAULT_BY => 'run_at',
26 MODEL => 'BackgroundJobHistory',
27 FORM_PARAMS => [ qw(sort_by sort_dir) ],
30 package_name => $::locale->text('Package name'),
31 run_at => $::locale->text('Run at'),
32 status => $::locale->text('Execution status'),
33 result => $::locale->text('Result'),
34 error => $::locale->text('Error'),
44 $self->render('background_job_history/list',
45 title => $::locale->text('Background job history'),
46 ENTRIES => $self->get_models);
52 my $back_to = $::form->{back_to} || $self->url_for(action => 'list');
54 $self->history(SL::DB::BackgroundJobHistory->new(id => $::form->{id})->load);
55 $self->render('background_job_history/show',
56 title => $::locale->text('View background job execution result'),
65 $::auth->assert('admin');
72 sub init_task_server {
73 return SL::System::TaskServer->new;
76 sub check_task_server {
78 flash('warning', $::locale->text('The task server does not appear to be running.')) if !$self->task_server->is_running;
82 $::form->use_stylesheet('lx-office-erp/background_jobs.css');