X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FCsvImportProfileSetting.pm;h=11ffb16b225cffbcaed477904a249de219e0114e;hb=15aab04c1710b3c8a2bf8785aef31f13a958a43e;hp=6da5b34be7ab34332bb14e37331ef0184952928e;hpb=c2cf302a52645c06687d49496ea4a42471ea095c;p=kivitendo-erp.git

diff --git a/SL/DB/CsvImportProfileSetting.pm b/SL/DB/CsvImportProfileSetting.pm
index 6da5b34be..11ffb16b2 100644
--- a/SL/DB/CsvImportProfileSetting.pm
+++ b/SL/DB/CsvImportProfileSetting.pm
@@ -5,9 +5,19 @@ package SL::DB::CsvImportProfileSetting;
 
 use strict;
 
-use SL::DB::MetaSetup::CsvImportProfileSetting;
+use Rose::DB::Object::Helpers qw(clone);
+
+require SL::DB::MetaSetup::CsvImportProfileSetting;
+
+__PACKAGE__->meta->initialize;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
+# Helpers' clone_and_reset also kills compund keys like in this case kay+id
+sub clone_and_reset {
+  my $clone = $_[0]->clone;
+  $clone->id(undef);
+  return $clone;
+}
+
 1;