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(
26 package_name => $::locale->text('Package name'),
27 run_at => $::locale->text('Run at'),
28 status => $::locale->text('Execution status'),
29 result => $::locale->text('Result'),
30 error => $::locale->text('Error'),
40 $self->render('background_job_history/list',
41 title => $::locale->text('Background job history'),
42 ENTRIES => $self->get_models);
48 my $back_to = $::form->{back_to} || $self->url_for(action => 'list');
50 $self->history(SL::DB::BackgroundJobHistory->new(id => $::form->{id})->load);
51 $self->render('background_job_history/show',
52 title => $::locale->text('View background job execution result'),
61 $::auth->assert('admin');
68 sub init_task_server {
69 return SL::System::TaskServer->new;
72 sub check_task_server {
74 flash('warning', $::locale->text('The task server does not appear to be running.')) if !$self->task_server->is_running;
78 $::form->use_stylesheet('lx-office-erp/background_jobs.css');