projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kosmetik/Refactoring
[kivitendo-erp.git]
/
SL
/
DB
/
CsvImportProfile.pm
diff --git
a/SL/DB/CsvImportProfile.pm
b/SL/DB/CsvImportProfile.pm
index
c7c0f91
..
21dd484
100644
(file)
--- a/
SL/DB/CsvImportProfile.pm
+++ b/
SL/DB/CsvImportProfile.pm
@@
-4,7
+4,8
@@
use strict;
use List::Util qw(first);
use List::Util qw(first);
-use SL::DB::MetaSetup::CsvImportProfile;
+require SL::DB::MetaSetup::CsvImportProfile;
+use Rose::DB::Object::Helpers qw(clone_and_reset);
__PACKAGE__->meta->add_relationship(
settings => {
__PACKAGE__->meta->add_relationship(
settings => {
@@
-38,19
+39,20
@@
sub set_defaults {
escape_char => '"',
charset => 'CP850',
numberformat => $::myconfig{numberformat},
escape_char => '"',
charset => 'CP850',
numberformat => $::myconfig{numberformat},
+ duplicates => 'no_check',
);
if ($self->type eq 'parts') {
);
if ($self->type eq 'parts') {
- my $bugru = SL::DB::Manager::Buchungsgruppe->find_by(
name
=> { like => 'Standard%19%' });
+ 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',
$self->_set_defaults(sellprice_places => 2,
sellprice_adjustment => 0,
sellprice_adjustment_type => 'percent',
- article_number_policy => 'update_price',
- price_group_sep_char => '!',
- shoparticle_if_missing => 0,
+ article_number_policy => 'update_prices',
+ shoparticle_if_missing => '0',
parts_type => 'part',
parts_type => 'part',
- default_buchungsgruppe => ($bugru ? $bugru->name : undef),
+ default_buchungsgruppe => ($bugru ? $bugru->id : undef),
+ apply_buchungsgruppe => 'all',
);
} else {
$self->_set_defaults(table => 'customer');
);
} else {
$self->_set_defaults(table => 'customer');
@@
-93,6
+95,24
@@
sub _set_defaults {
return $self;
}
return $self;
}
+sub clone_and_reset_deep {
+ my ($self) = @_;
+
+ my $clone = $self->clone_and_reset;
+ $clone->settings(map { $_->clone_and_reset } $self->settings);
+ $clone->name('');
+
+ return $clone;
+}
+
+sub flatten {
+ my ($self) = @_;
+
+ return map {
+ $_->key => $_->value
+ } $self->settings;
+}
+
#
# hooks
#
#
# hooks
#