Refactoring
[kivitendo-erp.git] / SL / Controller / CustomVariableConfig.pm
1 package SL::Controller::CustomVariableConfig;
2
3 use strict;
4
5 use parent qw(SL::Controller::Base);
6
7 use List::Util qw(first);
8
9 use SL::DB::CustomVariableConfig;
10 use SL::Helper::Flash;
11 use SL::Locale::String;
12
13 use Rose::Object::MakeMethods::Generic (
14   scalar                  => [ qw(config module module_description flags) ],
15   'scalar --get_set_init' => [ qw(translated_types modules) ],
16 );
17
18 __PACKAGE__->run_before('check_auth');
19 __PACKAGE__->run_before('check_module');
20 __PACKAGE__->run_before('load_config', only => [ qw(edit update destroy) ]);
21
22 our %translations = (
23   text      => t8('Free-form text'),
24   textfield => t8('Text field'),
25   number    => t8('Number'),
26   date      => t8('Date'),
27   timestamp => t8('Timestamp'),
28   bool      => t8('Yes/No (Checkbox)'),
29   select    => t8('Selection'),
30   customer  => t8('Customer'),
31   vendor    => t8('Vendor'),
32   part      => t8('Part'),
33 );
34
35 our @types = qw(text textfield number date bool select customer vendor part); # timestamp
36
37 #
38 # actions
39 #
40
41 sub action_list {
42   my ($self) = @_;
43
44   my $configs = SL::DB::Manager::CustomVariableConfig->get_all_sorted(where => [ module => $self->module ]);
45
46   $::form->header;
47   $self->render('custom_variable_config/list',
48                 title   => t8('List of custom variables'),
49                 CONFIGS => $configs);
50 }
51
52 sub action_new {
53   my ($self) = @_;
54
55   $self->config(SL::DB::CustomVariableConfig->new(module => $self->module));
56   $self->show_form(title => t8('Add custom variable'));
57 }
58
59 sub show_form {
60   my ($self, %params) = @_;
61
62   $self->flags({
63     map { split m/=/, $_, 2 }
64     split m/;/, ($self->config->flags || '')
65   });
66
67   $self->render('custom_variable_config/form', %params);
68 }
69
70 sub action_edit {
71   my ($self) = @_;
72
73   $self->show_form(title => t8('Edit custom variable'));
74 }
75
76 sub action_create {
77   my ($self) = @_;
78
79   $self->config(SL::DB::CustomVariableConfig->new);
80   $self->create_or_update;
81 }
82
83 sub action_update {
84   my ($self) = @_;
85   $self->create_or_update;
86 }
87
88 sub action_destroy {
89   my ($self) = @_;
90
91   if (eval { $self->config->delete; 1; }) {
92     flash_later('info',  t8('The custom variable has been deleted.'));
93   } else {
94     flash_later('error', t8('The custom variable is in use and cannot be deleted.'));
95   }
96
97   $self->redirect_to(action => 'list');
98 }
99
100 sub action_reorder {
101   my ($self) = @_;
102
103   SL::DB::CustomVariableConfig->reorder_list(@{ $::form->{cvarcfg_id} || [] });
104
105   $self->render(\'', { type => 'json' });
106 }
107
108 #
109 # filters
110 #
111
112 sub check_auth {
113   $::auth->assert('config');
114 }
115
116 sub check_module {
117   my ($self)          = @_;
118
119   $::form->{module} ||= 'CT';
120   my $mod_desc        = first { $_->{module} eq $::form->{module} } @{ $self->modules };
121   die "Invalid 'module' parameter '" . $::form->{module} . "'" if !$mod_desc;
122
123   $self->module($mod_desc->{module});
124   $self->module_description($mod_desc->{description});
125 }
126
127 sub load_config {
128   my ($self) = @_;
129
130   $self->config(SL::DB::CustomVariableConfig->new(id => $::form->{id})->load);
131 }
132
133 #
134 # helpers
135 #
136
137 sub get_translation {
138   my ($self, $type) = @_;
139
140   return $translations{$type};
141 }
142
143 sub init_translated_types {
144   my ($self) = @_;
145
146   return [ map { { type => $_, translation => $translations{$_} } } @types ];
147 }
148
149 sub init_modules {
150   my ($self, %params) = @_;
151
152   return [
153     { module => 'CT',       description => t8('Customers and vendors')          },
154     { module => 'Contacts', description => t8('Contact persons')                },
155     { module => 'IC',       description => t8('Parts, services and assemblies') },
156     { module => 'Projects', description => t8('Projects')                       },
157   ];
158 }
159
160 sub create_or_update {
161   my ($self) = @_;
162   my $is_new = !$self->config->id;
163
164   my $params = delete($::form->{config}) || { };
165   delete $params->{id};
166
167   $params->{default_value}       = $::form->parse_amount(\%::myconfig, $params->{default_value}) if $params->{type} eq 'number';
168   $params->{included_by_default} = 0                                                             if !$params->{includeable};
169   $params->{flags}               = join ':', map { m/^flag_(.*)/; "${1}=" . delete($params->{$_}) } grep { m/^flag_/ } keys %{ $params };
170
171   $self->config->assign_attributes(%{ $params }, module => $self->module);
172
173   my @errors = $self->config->validate;
174
175   if (@errors) {
176     flash('error', @errors);
177     $self->show_form(title => $is_new ? t8('Add new custom variable') : t8('Edit custom variable'));
178     return;
179   }
180
181   $self->config->save;
182
183   flash_later('info', $is_new ? t8('The custom variable has been created.') : t8('The custom variable has been saved.'));
184   $self->redirect_to(action => 'list', module => $self->module);
185 }
186
187 1;