X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3fc69ae2ddb6f1b628748f48fd87be928e4de15a..abc355d2775cda30c745a277faf1307acb5a249b:/SL/Controller/CsvImport/Base.pm

diff --git a/SL/Controller/CsvImport/Base.pm b/SL/Controller/CsvImport/Base.pm
index 7030b05e6..2deae4571 100644
--- a/SL/Controller/CsvImport/Base.pm
+++ b/SL/Controller/CsvImport/Base.pm
@@ -339,6 +339,10 @@ sub check_objects {
 sub check_duplicates {
 }
 
+sub check_auth {
+  $::auth->assert('config');
+}
+
 sub check_std_duplicates {
   my $self = shift;
 
@@ -461,8 +465,6 @@ sub save_objects {
 
   $self->controller->track_progress(phase => 'saving data', progress => 0); # scale from 45..95%;
 
-  my $dbh = $data->[0]{object}->db;
-
   my $last_index = $#$data;
   my $chunk_size = 100;      # one transaction and progress update every 100 objects
 
@@ -485,6 +487,7 @@ sub save_objects {
           $self->controller->num_imported($self->controller->num_imported + 1);
         }
       }
+      1;
     }) or do { die SL::DB->client->error };
   }
   $self->controller->track_progress(progress => 100);