1 package SL::DB::CsvImportProfile;
5 use List::Util qw(first);
7 use SL::DB::MetaSetup::CsvImportProfile;
9 __PACKAGE__->meta->add_relationship(
11 type => 'one to many',
12 class => 'SL::DB::CsvImportProfileSetting',
13 column_map => { id => 'csv_import_profile_id' },
17 __PACKAGE__->meta->initialize;
19 __PACKAGE__->meta->make_manager_class;
21 __PACKAGE__->before_save('_before_save_unset_default_on_others');
27 sub new_with_default {
28 my ($class, $type) = @_;
30 return $class->new(type => $type)->set_defaults;
36 $self->_set_defaults(sep_char => ',',
40 numberformat => $::myconfig{numberformat},
41 duplicates => 'no_check',
44 if ($self->type eq 'parts') {
45 my $bugru = SL::DB::Manager::Buchungsgruppe->find_by(description => { like => 'Standard%19%' });
47 $self->_set_defaults(sellprice_places => 2,
48 sellprice_adjustment => 0,
49 sellprice_adjustment_type => 'percent',
50 article_number_policy => 'update_prices',
51 part_group_sep_char => '!',
52 shoparticle_if_missing => '0',
54 default_buchungsgruppe => ($bugru ? $bugru->description : undef),
55 apply_buchungsgruppe => 'all',
58 $self->_set_defaults(table => 'customer');
65 my ($self, %params) = @_;
67 while (my ($key, $value) = each %params) {
68 my $setting = $self->_get_setting($key);
71 $setting = SL::DB::CsvImportProfileSetting->new(key => $key);
72 $self->settings(@{ $self->settings || [] }, $setting);
75 $setting->value($value);
82 my ($self, $key, $default) = @_;
84 my $setting = $self->_get_setting($key);
85 return $setting ? $setting->value : $default;
89 my ($self, %params) = @_;
91 while (my ($key, $value) = each %params) {
92 $self->settings(@{ $self->settings || [] }, { key => $key, value => $value }) if !$self->_get_setting($key);
102 sub _before_save_unset_default_on_others {
105 if ($self->is_default) {
106 SL::DB::Manager::CsvImportProfile->update_all(set => { is_default => 0 },
107 where => [ type => $self->type,
108 '!id' => $self->id ]);
119 my ($self, $key) = @_;
120 return first { $_->key eq $key } @{ $self->settings || [] };