kivitendo/SL/Controller/SimpleSystemSetting.pm @ 916003e3
| 916003e3 | Moritz Bunkus | package SL::Controller::SimpleSystemSetting;
|
|
use strict;
|
|||
use utf8;
|
|||
use parent qw(SL::Controller::Base);
|
|||
use SL::Helper::Flash;
|
|||
use SL::Locale::String;
|
|||
use SL::DB::Default;
|
|||
use SL::System::Process;
|
|||
use Rose::Object::MakeMethods::Generic (
|
|||
scalar => [ qw(type config) ],
|
|||
'scalar --get_set_init' => [ qw(defaults object all_objects class manager_class list_attributes list_url supports_reordering) ],
|
|||
);
|
|||
__PACKAGE__->run_before('check_type_and_auth');
|
|||
__PACKAGE__->run_before('setup_javascript', only => [ qw(add create edit update delete) ]);
|
|||
# Make locales.pl happy: $self->render("simple_system_setting/_default_form")
|
|||
my %supported_types = (
|
|||
pricegroup => {
|
|||
# Make locales.pl happy: $self->render("simple_system_setting/_pricegroup_form")
|
|||
class => 'Pricegroup',
|
|||
titles => {
|
|||
list => t8('Pricegroups'),
|
|||
add => t8('Add pricegroup'),
|
|||
edit => t8('Edit pricegroup'),
|
|||
},
|
|||
list_attributes => [
|
|||
{ method => 'pricegroup', title => t8('Description') },
|
|||
{ method => 'obsolete', title => t8('Obsolete'), formatter => sub { $_[0]->obsolete ? t8('yes') : t8('no') } },
|
|||
],
|
|||
},
|
|||
);
|
|||
my @default_list_attributes = (
|
|||
{ method => 'description', title => t8('Description') },
|
|||
);
|
|||
#
|
|||
# actions
|
|||
#
|
|||
sub action_list {
|
|||
my ($self) = @_;
|
|||
$self->render('simple_system_setting/list', title => $self->config->{titles}->{list});
|
|||
}
|
|||
sub action_new {
|
|||
my ($self) = @_;
|
|||
$self->object($self->class->new);
|
|||
$self->render_form(title => $self->config->{titles}->{add});
|
|||
}
|
|||
sub action_edit {
|
|||
my ($self) = @_;
|
|||
$self->render_form(title => $self->config->{titles}->{edit});
|
|||
}
|
|||
sub action_create {
|
|||
my ($self) = @_;
|
|||
$self->object($self->class->new);
|
|||
$self->create_or_update;
|
|||
}
|
|||
sub action_update {
|
|||
my ($self) = @_;
|
|||
$self->create_or_update;
|
|||
}
|
|||
sub action_delete {
|
|||
my ($self) = @_;
|
|||
if ($self->object->can('orphaned') && !$self->object->orphaned) {
|
|||
flash_later('error', t8('The object is in use and cannot be deleted.'));
|
|||
} elsif ( eval { $self->object->delete; 1; } ) {
|
|||
flash_later('info', t8('The object has been deleted.'));
|
|||
} else {
|
|||
flash_later('error', t8('The object is in use and cannot be deleted.'));
|
|||
}
|
|||
$self->redirect_to($self->list_url);
|
|||
}
|
|||
sub action_reorder {
|
|||
my ($self) = @_;
|
|||
$self->class->reorder_list(@{ $::form->{object_id} || [] });
|
|||
$self->render(\'', { type => 'json' });
|
|||
}
|
|||
#
|
|||
# filters
|
|||
#
|
|||
sub check_type_and_auth {
|
|||
my ($self) = @_;
|
|||
$self->type($::form->{type});
|
|||
$self->config($supported_types{$self->type}) || die "Unsupported type";
|
|||
$::auth->assert($self->config->{auth} || 'config');
|
|||
my $pm = (map { s{::}{/}g; "${_}.pm" } $self->class)[0];
|
|||
require $pm;
|
|||
my $setup = "setup_" . $self->type;
|
|||
$self->$setup if $self->can($setup);
|
|||
1;
|
|||
}
|
|||
sub setup_javascript {
|
|||
$::request->layout->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery);
|
|||
}
|
|||
sub init_class { "SL::DB::" . $_[0]->config->{class} }
|
|||
sub init_manager_class { "SL::DB::Manager::" . $_[0]->config->{class} }
|
|||
sub init_object { $_[0]->class->new(id => $::form->{id})->load }
|
|||
sub init_all_objects { $_[0]->manager_class->get_all_sorted }
|
|||
sub init_list_url { $_[0]->url_for(action => 'list', type => $_[0]->type) }
|
|||
sub init_supports_reordering { $_[0]->class->new->can('reorder_list') }
|
|||
sub init_defaults { SL::DB::Default->get }
|
|||
sub init_list_attributes {
|
|||
my ($self) = @_;
|
|||
my $method = "list_attributes_" . $self->type;
|
|||
return $self->$method if $self->can($method);
|
|||
return $self->config->{list_attributes} // \@default_list_attributes;
|
|||
}
|
|||
#
|
|||
# helpers
|
|||
#
|
|||
sub create_or_update {
|
|||
my ($self) = @_;
|
|||
my $is_new = !$self->object->id;
|
|||
my $params = delete($::form->{object}) || { };
|
|||
$self->object->assign_attributes(%{ $params });
|
|||
my @errors;
|
|||
push @errors, $self->object->validate if $self->object->can('validate');
|
|||
if (@errors) {
|
|||
flash('error', @errors);
|
|||
return $self->render_form(title => $self->config->{titles}->{$is_new ? 'add' : 'edit'});
|
|||
}
|
|||
$self->object->save;
|
|||
flash_later('info', $is_new ? t8('The object has been created.') : t8('The object has been saved.'));
|
|||
$self->redirect_to($self->list_url);
|
|||
}
|
|||
sub render_form {
|
|||
my ($self, %params) = @_;
|
|||
my $sub_form_template = SL::System::Process->exe_dir . '/templates/webpages/simple_system_setting/_' . $self->type . '_form.html';
|
|||
$self->render(
|
|||
'simple_system_setting/form',
|
|||
%params,
|
|||
sub_form_template => (-f $sub_form_template ? $self->type : 'default'),
|
|||
);
|
|||
}
|
|||
#
|
|||
# type-specific helper functions
|
|||
#
|
|||
1;
|
|||
__END__
|
|||
=encoding utf-8
|
|||
=head1 NAME
|
|||
SL::Controller::SimpleSystemSettings — a common CRUD controller for
|
|||
various settings in the "System" menu
|
|||
=head1 AUTHOR
|
|||
Moritz Bunkus <m.bunkus@linet-services.de>
|
|||
=cut
|