cleanup nach jedem import

[mfinanz.git] / SL / Controller / CsvImport / Part.pm

diff --git a/SL/Controller/CsvImport/Part.pm b/SL/Controller/CsvImport/Part.pm
index 36dccc62a33c20620e0ecbb07d7100d4e74fbeb1..30c3719ca254f9b398f8dc58cdfe5ed23dd80b37 100644 (file)
--- a/SL/Controller/CsvImport/Part.pm
+++ b/SL/Controller/CsvImport/Part.pm
@@ -103,12 +103,14 @@ sub check_objects {
 
   return unless @{ $self->controller->data };
 
 
   return unless @{ $self->controller->data };
 

+  $self->controller->track_progress(phase => 'building data', progress => 0);
+

   $self->makemodel_columns({});
 
   my $i;
   my $num_data = scalar @{ $self->controller->data };
   foreach my $entry (@{ $self->controller->data }) {
   $self->makemodel_columns({});
 
   my $i;
   my $num_data = scalar @{ $self->controller->data };
   foreach my $entry (@{ $self->controller->data }) {

-    $self->controller->track_progress(8 + ($i/$num_data * 40)) if $i % 100 == 0; # scale from 5..45%
+    $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;

 
     $self->check_buchungsgruppe($entry);
     $self->check_type($entry);
 
     $self->check_buchungsgruppe($entry);
     $self->check_type($entry);