X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/1e62938e10b5c7e9f91b09c53660ccb14e6004a6..67643d0386e7ad051009af639cada8a5ad60d1ea:/SL/DB/CsvImportProfileSetting.pm

diff --git a/SL/DB/CsvImportProfileSetting.pm b/SL/DB/CsvImportProfileSetting.pm
index 6da5b34be..b1acf2431 100644
--- a/SL/DB/CsvImportProfileSetting.pm
+++ b/SL/DB/CsvImportProfileSetting.pm
@@ -6,8 +6,16 @@ package SL::DB::CsvImportProfileSetting;
 use strict;
 
 use SL::DB::MetaSetup::CsvImportProfileSetting;
+use Rose::DB::Object::Helpers qw(clone);
 
 # 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;