our %translations = (
text => t8('Free-form text'),
textfield => t8('Text field'),
+ htmlfield => t8('HTML field'),
number => t8('Number'),
date => t8('Date'),
timestamp => t8('Timestamp'),
part => t8('Part'),
);
-our @types = qw(text textfield number date bool select customer vendor part); # timestamp
+our @types = qw(text textfield htmlfield number date bool select customer vendor part); # timestamp
#
# actions
my $configs = SL::DB::Manager::CustomVariableConfig->get_all_sorted(where => [ module => $self->module ]);
+ $self->setup_list_action_bar;
$::form->header;
$self->render('custom_variable_config/list',
title => t8('List of custom variables'),
$params{all_partsgroups} = SL::DB::Manager::PartsGroup->get_all();
$::request->layout->use_javascript("${_}.js") for qw(jquery.selectboxes jquery.multiselect2side);
+ $self->setup_form_action_bar;
$self->render('custom_variable_config/form', %params);
}
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') },
- ];
+ 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') },
+ { module => 'ShipTo', description => t8('Shipping Address') },
+ )];
}
sub create_or_update {
return;
}
- my $dbh = $self->config->db;
- $dbh->begin_work;
+ SL::DB->client->with_transaction(sub {
+ my $dbh = SL::DB->client->dbh;
- $self->config->save;
- $self->_set_cvar_validity() if $is_new;
-
- $dbh->commit;
+ $self->config->save;
+ $self->_set_cvar_validity() if $is_new;
+ 1;
+ }) or do { die SL::DB->client->error };
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);
}
}
+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),
+ ],
+ );
+ }
+}
+
1;