use List::Util qw(first);
require SL::DB::MetaSetup::CsvImportProfile;
-use Rose::DB::Object::Helpers qw(clone_and_reset);
__PACKAGE__->meta->add_relationship(
settings => {
escape_char => '"',
charset => 'CP850',
numberformat => $::myconfig{numberformat},
+ dateformat => $::myconfig{dateformat},
duplicates => 'no_check',
);
- if ($self->type eq 'parts') {
- my $bugru = SL::DB::Manager::Buchungsgruppe->find_by(description => { like => 'Standard%19%' });
-
- $self->_set_defaults(sellprice_places => 2,
- sellprice_adjustment => 0,
- sellprice_adjustment_type => 'percent',
- article_number_policy => 'update_prices',
- shoparticle_if_missing => '0',
- parts_type => 'part',
- default_buchungsgruppe => ($bugru ? $bugru->id : undef),
- apply_buchungsgruppe => 'all',
- );
- } else {
- $self->_set_defaults(table => 'customer');
- }
-
return $self;
}
my $clone = $self->clone_and_reset;
$clone->settings(map { $_->clone_and_reset } $self->settings);
+ $clone->is_default(0);
$clone->name('');
-
return $clone;
}
+sub flatten {
+ my ($self) = @_;
+
+ return map {
+ $_->key => $_->value
+ } $self->settings;
+}
+
#
# hooks
#