X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FCsvImportProfile.pm;h=b816bedb80fedd0f0a643b4517c1a89b7e09af38;hb=3c22e5f4b953f463a33b722d6f4f122e4a20c99a;hp=85033e1818758f50449689153b188913b0225321;hpb=c2cf302a52645c06687d49496ea4a42471ea095c;p=kivitendo-erp.git

diff --git a/SL/DB/CsvImportProfile.pm b/SL/DB/CsvImportProfile.pm
index 85033e181..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 => {
@@ -24,6 +24,27 @@ __PACKAGE__->before_save('_before_save_unset_default_on_others');
 # public functions
 #
 
+sub new_with_default {
+  my ($class, $type) = @_;
+
+  return $class->new(type => $type)->set_defaults;
+}
+
+sub set_defaults {
+  my ($self) = @_;
+
+  $self->_set_defaults(sep_char     => ',',
+                       quote_char   => '"',
+                       escape_char  => '"',
+                       charset      => 'CP850',
+                       numberformat => $::myconfig{numberformat},
+                       dateformat   => $::myconfig{dateformat},
+                       duplicates   => 'no_check',
+                      );
+
+  return $self;
+}
+
 sub set {
   my ($self, %params) = @_;
 
@@ -32,7 +53,7 @@ sub set {
 
     if (!$setting) {
       $setting = SL::DB::CsvImportProfileSetting->new(key => $key);
-      $self->add_settings($setting);
+      $self->settings(@{ $self->settings || [] }, $setting);
     }
 
     $setting->value($value);
@@ -48,6 +69,34 @@ sub get {
   return $setting ? $setting->value : $default;
 }
 
+sub _set_defaults {
+  my ($self, %params) = @_;
+
+  while (my ($key, $value) = each %params) {
+    $self->settings(@{ $self->settings || [] }, { key => $key, value => $value }) if !$self->_get_setting($key);
+  }
+
+  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
 #
@@ -70,7 +119,7 @@ sub _before_save_unset_default_on_others {
 
 sub _get_setting {
   my ($self, $key) = @_;
-  return first { $_->key eq $key } @{ $self->settings };
+  return first { $_->key eq $key } @{ $self->settings || [] };
 }
 
 1;