X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FCsvImportProfile.pm;fp=SL%2FDB%2FCsvImportProfile.pm;h=0b1a00cd1d07c97a0b82bffe686c4774e79e20c3;hb=67643d0386e7ad051009af639cada8a5ad60d1ea;hp=ea7b4fe287cec7addf07618f12477e77294593fa;hpb=1e62938e10b5c7e9f91b09c53660ccb14e6004a6;p=kivitendo-erp.git

diff --git a/SL/DB/CsvImportProfile.pm b/SL/DB/CsvImportProfile.pm
index ea7b4fe28..0b1a00cd1 100644
--- a/SL/DB/CsvImportProfile.pm
+++ b/SL/DB/CsvImportProfile.pm
@@ -5,6 +5,7 @@ use strict;
 use List::Util qw(first);
 
 use SL::DB::MetaSetup::CsvImportProfile;
+use Rose::DB::Object::Helpers qw(clone_and_reset);
 
 __PACKAGE__->meta->add_relationship(
   settings => {
@@ -94,6 +95,16 @@ 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->name('');
+
+  return $clone;
+}
+
 #
 # hooks
 #