Projekt

Allgemein

Profil

Herunterladen (7,58 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/SL/Controller/CustomVariableConfig.pm @ 912e5eff

7fb610a5 Moritz Bunkus
package SL::Controller::CustomVariableConfig;

use strict;

use parent qw(SL::Controller::Base);

2737667a Moritz Bunkus
use List::Util qw(first);

7fb610a5 Moritz Bunkus
use SL::DB::CustomVariableConfig;
86b6ff8a Bernd Bleßmann
use SL::DB::CustomVariableValidity;
36703a86 Bernd Bleßmann
use SL::DB::PartsGroup;
2737667a Moritz Bunkus
use SL::Helper::Flash;
use SL::Locale::String;
f5c454e3 Niclas Zimmermann
use Data::Dumper;
2737667a Moritz Bunkus
use Rose::Object::MakeMethods::Generic (
scalar => [ qw(config module module_description flags) ],
'scalar --get_set_init' => [ qw(translated_types modules) ],
);
7fb610a5 Moritz Bunkus
__PACKAGE__->run_before('check_auth');
2737667a Moritz Bunkus
__PACKAGE__->run_before('check_module');
__PACKAGE__->run_before('load_config', only => [ qw(edit update destroy) ]);

our %translations = (
text => t8('Free-form text'),
textfield => t8('Text field'),
e0900c89 Moritz Bunkus
htmlfield => t8('HTML field'),
2737667a Moritz Bunkus
number => t8('Number'),
date => t8('Date'),
timestamp => t8('Timestamp'),
bool => t8('Yes/No (Checkbox)'),
select => t8('Selection'),
customer => t8('Customer'),
vendor => t8('Vendor'),
part => t8('Part'),
);

e0900c89 Moritz Bunkus
our @types = qw(text textfield htmlfield number date bool select customer vendor part); # timestamp
7fb610a5 Moritz Bunkus
#
# actions
#

2737667a Moritz Bunkus
sub action_list {
my ($self) = @_;

my $configs = SL::DB::Manager::CustomVariableConfig->get_all_sorted(where => [ module => $self->module ]);

942ce912 Moritz Bunkus
$self->setup_list_action_bar;
2737667a Moritz Bunkus
$::form->header;
$self->render('custom_variable_config/list',
title => t8('List of custom variables'),
CONFIGS => $configs);
}

sub action_new {
my ($self) = @_;

$self->config(SL::DB::CustomVariableConfig->new(module => $self->module));
$self->show_form(title => t8('Add custom variable'));
}

sub show_form {
my ($self, %params) = @_;

6b5e657a Moritz Bunkus
$self->flags({
map { split m/=/, $_, 2 }
a75bd966 Bernd Bleßmann
split m/:/, ($self->config->flags || '')
6b5e657a Moritz Bunkus
});

36703a86 Bernd Bleßmann
$params{all_partsgroups} = SL::DB::Manager::PartsGroup->get_all();

$::request->layout->use_javascript("${_}.js") for qw(jquery.selectboxes jquery.multiselect2side);
942ce912 Moritz Bunkus
$self->setup_form_action_bar;
2737667a Moritz Bunkus
$self->render('custom_variable_config/form', %params);
}

sub action_edit {
my ($self) = @_;

$self->show_form(title => t8('Edit custom variable'));
}

sub action_create {
my ($self) = @_;

$self->config(SL::DB::CustomVariableConfig->new);
$self->create_or_update;
}

sub action_update {
my ($self) = @_;
$self->create_or_update;
}

sub action_destroy {
my ($self) = @_;

36703a86 Bernd Bleßmann
# delete relationship to partsgroups (for filter) before cvar can be deleted
$self->config->update_attributes(partsgroups => []);

2737667a Moritz Bunkus
if (eval { $self->config->delete; 1; }) {
flash_later('info', t8('The custom variable has been deleted.'));
} else {
flash_later('error', t8('The custom variable is in use and cannot be deleted.'));
}

28f6dabe Bernd Bleßmann
$self->redirect_to(action => 'list', module => $self->module);
2737667a Moritz Bunkus
}

7fb610a5 Moritz Bunkus
sub action_reorder {
my ($self) = @_;

117fefac Moritz Bunkus
SL::DB::CustomVariableConfig->reorder_list(@{ $::form->{cvarcfg_id} || [] });
7fb610a5 Moritz Bunkus
86b6ff8a Bernd Bleßmann
$self->render(\'', { type => 'json' }); # ' make emacs happy
7fb610a5 Moritz Bunkus
}

#
# filters
#

sub check_auth {
$::auth->assert('config');
}

2737667a Moritz Bunkus
sub check_module {
my ($self) = @_;

$::form->{module} ||= 'CT';
my $mod_desc = first { $_->{module} eq $::form->{module} } @{ $self->modules };
die "Invalid 'module' parameter '" . $::form->{module} . "'" if !$mod_desc;

$self->module($mod_desc->{module});
$self->module_description($mod_desc->{description});
}

sub load_config {
my ($self) = @_;

$self->config(SL::DB::CustomVariableConfig->new(id => $::form->{id})->load);
}

#
# helpers
#

sub get_translation {
my ($self, $type) = @_;

return $translations{$type};
}

sub init_translated_types {
my ($self) = @_;

return [ map { { type => $_, translation => $translations{$_} } } @types ];
}

sub init_modules {
my ($self, %params) = @_;

fb84ef15 Moritz Bunkus
return [ sort { $a->{description}->translated cmp $b->{description}->translated } (
{ module => 'CT', description => t8('Customers and vendors') },
{ module => 'Contacts', description => t8('Contact persons') },
{ module => 'IC', description => t8('Parts, services and assemblies') },
{ module => 'Projects', description => t8('Projects') },
{ module => 'RequirementSpecs', description => t8('Requirement Specs') },
040b466d Moritz Bunkus
{ module => 'ShipTo', description => t8('Shipping Address') },
fb84ef15 Moritz Bunkus
)];
2737667a Moritz Bunkus
}

sub create_or_update {
my ($self) = @_;
my $is_new = !$self->config->id;

my $params = delete($::form->{config}) || { };
delete $params->{id};

36703a86 Bernd Bleßmann
if ($self->module eq 'IC') {
$params->{partsgroups} = [] if !$params->{flag_partsgroup_filter};
} else {
delete $params->{flag_partsgroup_filter};
$params->{partsgroups} = [];
}

$params->{partsgroups} ||= []; # The list is empty, if control is not send by the browser.
2737667a Moritz Bunkus
$params->{default_value} = $::form->parse_amount(\%::myconfig, $params->{default_value}) if $params->{type} eq 'number';
$params->{included_by_default} = 0 if !$params->{includeable};
$params->{flags} = join ':', map { m/^flag_(.*)/; "${1}=" . delete($params->{$_}) } grep { m/^flag_/ } keys %{ $params };

$self->config->assign_attributes(%{ $params }, module => $self->module);

my @errors = $self->config->validate;

if (@errors) {
flash('error', @errors);
$self->show_form(title => $is_new ? t8('Add new custom variable') : t8('Edit custom variable'));
return;
}

d9abca44 Sven Schöling
SL::DB->client->with_transaction(sub {
my $dbh = SL::DB->client->dbh;
86b6ff8a Bernd Bleßmann
d9abca44 Sven Schöling
$self->config->save;
$self->_set_cvar_validity() if $is_new;
1;
}) or do { die SL::DB->client->error };
2737667a Moritz Bunkus
flash_later('info', $is_new ? t8('The custom variable has been created.') : t8('The custom variable has been saved.'));
$self->redirect_to(action => 'list', module => $self->module);
}

86b6ff8a Bernd Bleßmann
sub _set_cvar_validity {
my ($self) = @_;

my $flags = {
map { split m/=/, $_, 2 }
split m/:/, ($self->config->flags || '')
};

# nothing to do to set valid
return if !$flags->{defaults_to_invalid};

my $all_parts = SL::DB::Manager::Part->get_all(where => [ or => [ obsolete => 0, obsolete => undef ] ]);
foreach my $part (@{ $all_parts }) {
SL::DB::CustomVariableValidity->new(config_id => $self->config->id, trans_id => $part->id)->save;
}
}

942ce912 Moritz Bunkus
sub setup_list_action_bar {
my ($self) = @_;

for my $bar ($::request->layout->get('actionbar')) {
$bar->add(
action => [
t8('Add'),
link => $self->url_for(action => 'new', module => $self->module),
],
);
}
}

sub setup_form_action_bar {
my ($self) = @_;

my $is_new = !$self->config->id;

for my $bar ($::request->layout->get('actionbar')) {
$bar->add(
combobox => [
action => [
t8('Save'),
submit => [ '#form', { action => 'CustomVariableConfig/' . ($is_new ? 'create' : 'update') } ],
checks => [ 'check_prerequisites' ],
accesskey => 'enter',
],

action => [
t8('Save as new'),
submit => [ '#form', { action => 'CustomVariableConfig/create'} ],
checks => [ 'check_prerequisites' ],
not_if => $is_new,
],
], # end of combobox "Save"

action => [
t8('Delete'),
submit => [ '#form', { action => 'CustomVariableConfig/destroy' } ],
confirm => t8('Do you really want to delete this object?'),
disabled => $is_new ? t8('This object has not been saved yet.') : undef,
],

'separator',

link => [
t8('Abort'),
link => $self->url_for(action => 'list', module => $self->module),
],
);
}
}

7fb610a5 Moritz Bunkus
1;