X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FDB%2FCsvImportProfile.pm;h=b816bedb80fedd0f0a643b4517c1a89b7e09af38;hb=9dfd320ff258071e3ad78dd6cf2d76e215efd4f7;hp=c7c0f91ea87a15aca593f35d9b85f04c83139ccb;hpb=7f1f5efedc0b738f8e8faaeca52f649150448e32;p=kivitendo-erp.git

diff --git a/SL/DB/CsvImportProfile.pm b/SL/DB/CsvImportProfile.pm
index c7c0f91ea..b816bedb8 100644
--- a/SL/DB/CsvImportProfile.pm
+++ b/SL/DB/CsvImportProfile.pm
@@ -4,7 +4,7 @@ use strict;
 
 use List::Util qw(first);
 
-use SL::DB::MetaSetup::CsvImportProfile;
+require SL::DB::MetaSetup::CsvImportProfile;
 
 __PACKAGE__->meta->add_relationship(
   settings => {
@@ -38,24 +38,10 @@ sub set_defaults {
                        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(name => { like => 'Standard%19%' });
-
-    $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,
-                         parts_type                => 'part',
-                         default_buchungsgruppe    => ($bugru ? $bugru->name : undef),
-                        );
-  } else {
-    $self->_set_defaults(table => 'customer');
-  }
-
   return $self;
 }
 
@@ -93,6 +79,24 @@ sub _set_defaults {
   return $self;
 }
 
+sub clone_and_reset_deep {
+  my ($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
 #