+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) = @_;
+
+ return [
+ { 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') },
+ ];
+}
+
+sub create_or_update {
+ my ($self) = @_;
+ my $is_new = !$self->config->id;
+
+ my $params = delete($::form->{config}) || { };
+ delete $params->{id};
+
+ $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;
+ }
+
+ $self->config->save;
+
+ 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);
+}
+