use List::Util qw(first);
use SL::DB::CustomVariableConfig;
+use SL::DB::CustomVariableValidity;
+use SL::DB::PartsGroup;
use SL::Helper::Flash;
use SL::Locale::String;
+use Data::Dumper;
use Rose::Object::MakeMethods::Generic (
scalar => [ qw(config module module_description flags) ],
$self->flags({
map { split m/=/, $_, 2 }
- split m/;/, ($self->config->flags || '')
+ split m/:/, ($self->config->flags || '')
});
+ $params{all_partsgroups} = SL::DB::Manager::PartsGroup->get_all();
+
+ $::request->layout->use_javascript("${_}.js") for qw(jquery.selectboxes jquery.multiselect2side);
$self->render('custom_variable_config/form', %params);
}
sub action_destroy {
my ($self) = @_;
+ # delete relationship to partsgroups (for filter) before cvar can be deleted
+ $self->config->update_attributes(partsgroups => []);
+
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.'));
}
- $self->redirect_to(action => 'list');
+ $self->redirect_to(action => 'list', module => $self->module);
}
sub action_reorder {
SL::DB::CustomVariableConfig->reorder_list(@{ $::form->{cvarcfg_id} || [] });
- $self->render(\'', { type => 'json' });
+ $self->render(\'', { type => 'json' }); # ' make emacs happy
}
#
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 {
my $params = delete($::form->{config}) || { };
delete $params->{id};
+ 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.
$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 };
return;
}
+ my $dbh = $self->config->db;
+ $dbh->begin_work;
+
$self->config->save;
+ $self->_set_cvar_validity() if $is_new;
+
+ $dbh->commit;
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 _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;
+ }
+}
+
1;