X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d51b3011755b4a7e006f433d9fe5836a22a69638..fe18b19ff491efb6768b5ddd56f9eb1c6b1f4467:/SL/Controller/CsvImport/BaseMulti.pm diff --git a/SL/Controller/CsvImport/BaseMulti.pm b/SL/Controller/CsvImport/BaseMulti.pm index b97539489..5168ae28c 100644 --- a/SL/Controller/CsvImport/BaseMulti.pm +++ b/SL/Controller/CsvImport/BaseMulti.pm @@ -94,6 +94,17 @@ sub run { $::myconfig{numberformat} = $old_numberformat; } +sub init_manager_class { + my ($self) = @_; + + my @manager_classes; + foreach my $class (@{ $self->class }) { + $class =~ m/^SL::DB::(.+)/; + push @manager_classes, "SL::DB::Manager::" . $1; + } + $self->manager_class(\@manager_classes); +} + sub add_columns { my ($self, $row_ident, @columns) = @_;