X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/67643d0386e7ad051009af639cada8a5ad60d1ea..8b7b7b3f6252786b38bb6c9357fc00a08750b8db:/SL/DB/CsvImportProfile.pm

diff --git a/SL/DB/CsvImportProfile.pm b/SL/DB/CsvImportProfile.pm
index 0b1a00cd1..21dd4842d 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;
 use Rose::DB::Object::Helpers qw(clone_and_reset);
 
 __PACKAGE__->meta->add_relationship(
@@ -105,6 +105,14 @@ sub clone_and_reset_deep {
   return $clone;
 }
 
+sub flatten {
+  my ($self) = @_;
+
+  return map {
+    $_->key => $_->value
+  } $self->settings;
+}
+
 #
 # hooks
 #