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::DB::CustomVariableValidity;
  11 use SL::DB::PartsGroup;
  12 use SL::Helper::Flash;
  13 use SL::Locale::String;
  14 use Data::Dumper;
  15
  16 use Rose::Object::MakeMethods::Generic (
  17   scalar                  => [ qw(config module module_description flags) ],
  18   'scalar --get_set_init' => [ qw(translated_types modules) ],
  19 );
  20
  21 __PACKAGE__->run_before('check_auth');
  22 __PACKAGE__->run_before('check_module');
  23 __PACKAGE__->run_before('load_config', only => [ qw(edit update destroy) ]);
  24
  25 our %translations = (
  26   text      => t8('Free-form text'),
  27   textfield => t8('Text field'),
  28   number    => t8('Number'),
  29   date      => t8('Date'),
  30   timestamp => t8('Timestamp'),
  31   bool      => t8('Yes/No (Checkbox)'),
  32   select    => t8('Selection'),
  33   customer  => t8('Customer'),
  34   vendor    => t8('Vendor'),
  35   part      => t8('Part'),
  36 );
  37
  38 our @types = qw(text textfield number date bool select customer vendor part); # timestamp
  39
  40 #
  41 # actions
  42 #
  43
  44 sub action_list {
  45   my ($self) = @_;
  46
  47   my $configs = SL::DB::Manager::CustomVariableConfig->get_all_sorted(where => [ module => $self->module ]);
  48
  49   $::form->header;
  50   $self->render('custom_variable_config/list',
  51                 title   => t8('List of custom variables'),
  52                 CONFIGS => $configs);
  53 }
  54
  55 sub action_new {
  56   my ($self) = @_;
  57
  58   $self->config(SL::DB::CustomVariableConfig->new(module => $self->module));
  59   $self->show_form(title => t8('Add custom variable'));
  60 }
  61
  62 sub show_form {
  63   my ($self, %params) = @_;
  64
  65   $self->flags({
  66     map { split m/=/, $_, 2 }
  67     split m/:/, ($self->config->flags || '')
  68   });
  69
  70   $params{all_partsgroups} = SL::DB::Manager::PartsGroup->get_all();
  71
  72   $::request->layout->use_javascript("${_}.js") for qw(jquery.selectboxes jquery.multiselect2side);
  73   $self->render('custom_variable_config/form', %params);
  74 }
  75
  76 sub action_edit {
  77   my ($self) = @_;
  78
  79   $self->show_form(title => t8('Edit custom variable'));
  80 }
  81
  82 sub action_create {
  83   my ($self) = @_;
  84
  85   $self->config(SL::DB::CustomVariableConfig->new);
  86   $self->create_or_update;
  87 }
  88
  89 sub action_update {
  90   my ($self) = @_;
  91   $self->create_or_update;
  92 }
  93
  94 sub action_destroy {
  95   my ($self) = @_;
  96
  97   # delete relationship to partsgroups (for filter) before cvar can be deleted
  98   $self->config->update_attributes(partsgroups => []);
  99
 100   if (eval { $self->config->delete; 1; }) {
 101     flash_later('info',  t8('The custom variable has been deleted.'));
 102   } else {
 103     flash_later('error', t8('The custom variable is in use and cannot be deleted.'));
 104   }
 105
 106   $self->redirect_to(action => 'list', module => $self->module);
 107 }
 108
 109 sub action_reorder {
 110   my ($self) = @_;
 111
 112   SL::DB::CustomVariableConfig->reorder_list(@{ $::form->{cvarcfg_id} || [] });
 113
 114   $self->render(\'', { type => 'json' }); # ' make emacs happy
 115 }
 116
 117 #
 118 # filters
 119 #
 120
 121 sub check_auth {
 122   $::auth->assert('config');
 123 }
 124
 125 sub check_module {
 126   my ($self)          = @_;
 127
 128   $::form->{module} ||= 'CT';
 129   my $mod_desc        = first { $_->{module} eq $::form->{module} } @{ $self->modules };
 130   die "Invalid 'module' parameter '" . $::form->{module} . "'" if !$mod_desc;
 131
 132   $self->module($mod_desc->{module});
 133   $self->module_description($mod_desc->{description});
 134 }
 135
 136 sub load_config {
 137   my ($self) = @_;
 138
 139   $self->config(SL::DB::CustomVariableConfig->new(id => $::form->{id})->load);
 140 }
 141
 142 #
 143 # helpers
 144 #
 145
 146 sub get_translation {
 147   my ($self, $type) = @_;
 148
 149   return $translations{$type};
 150 }
 151
 152 sub init_translated_types {
 153   my ($self) = @_;
 154
 155   return [ map { { type => $_, translation => $translations{$_} } } @types ];
 156 }
 157
 158 sub init_modules {
 159   my ($self, %params) = @_;
 160
 161   return [
 162     { module => 'CT',       description => t8('Customers and vendors')          },
 163     { module => 'Contacts', description => t8('Contact persons')                },
 164     { module => 'IC',       description => t8('Parts, services and assemblies') },
 165     { module => 'Projects', description => t8('Projects')                       },
 166   ];
 167 }
 168
 169 sub create_or_update {
 170   my ($self) = @_;
 171   my $is_new = !$self->config->id;
 172
 173   my $params = delete($::form->{config}) || { };
 174   delete $params->{id};
 175
 176   if ($self->module eq 'IC') {
 177     $params->{partsgroups} = [] if !$params->{flag_partsgroup_filter};
 178   } else {
 179     delete $params->{flag_partsgroup_filter};
 180     $params->{partsgroups} = [];
 181   }
 182
 183   $params->{partsgroups}       ||= []; # The list is empty, if control is not send by the browser.
 184   $params->{default_value}       = $::form->parse_amount(\%::myconfig, $params->{default_value}) if $params->{type} eq 'number';
 185   $params->{included_by_default} = 0                                                             if !$params->{includeable};
 186   $params->{flags}               = join ':', map { m/^flag_(.*)/; "${1}=" . delete($params->{$_}) } grep { m/^flag_/ } keys %{ $params };
 187
 188   $self->config->assign_attributes(%{ $params }, module => $self->module);
 189
 190   my @errors = $self->config->validate;
 191
 192   if (@errors) {
 193     flash('error', @errors);
 194     $self->show_form(title => $is_new ? t8('Add new custom variable') : t8('Edit custom variable'));
 195     return;
 196   }
 197
 198   my $dbh = $self->config->db;
 199   $dbh->begin_work;
 200
 201   $self->config->save;
 202   $self->_set_cvar_validity() if $is_new;
 203
 204   $dbh->commit;
 205
 206   flash_later('info', $is_new ? t8('The custom variable has been created.') : t8('The custom variable has been saved.'));
 207   $self->redirect_to(action => 'list', module => $self->module);
 208 }
 209
 210 sub _set_cvar_validity {
 211   my ($self) = @_;
 212
 213   my $flags = {
 214     map { split m/=/, $_, 2 }
 215     split m/:/, ($self->config->flags || '')
 216   };
 217
 218   # nothing to do to set valid
 219   return if !$flags->{defaults_to_invalid};
 220
 221   my $all_parts  = SL::DB::Manager::Part->get_all(where => [ or => [ obsolete => 0, obsolete => undef ] ]);
 222   foreach my $part (@{ $all_parts }) {
 223     SL::DB::CustomVariableValidity->new(config_id => $self->config->id, trans_id => $part->id)->save;
 224   }
 225 }
 226
 227 1;