GetModels: Optional die action setzen.

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

diff --git a/SL/Controller/CsvImport/Project.pm b/SL/Controller/CsvImport/Project.pm
index 6530fb314c7e1968d8ffa3e24346c7913c8fb748..4b846dc27cef68418244ab1ef134de8643f48f1e 100644 (file)
--- a/SL/Controller/CsvImport/Project.pm
+++ b/SL/Controller/CsvImport/Project.pm
@@ -18,6 +18,9 @@ sub init_class {
   $self->class('SL::DB::Project');
 }
 
+sub set_profile_defaults {
+};
+
 sub init_all_cvar_configs {
   my ($self) = @_;
 
@@ -27,8 +30,16 @@ sub init_all_cvar_configs {
 sub check_objects {
   my ($self) = @_;
 
+  $self->controller->track_progress(phase => 'building data', progress => 0);
+
+  my $i;
+  my $num_data = scalar @{ $self->controller->data };
   foreach my $entry (@{ $self->controller->data }) {
+    $self->controller->track_progress(progress => $i/$num_data * 100) if $i % 100 == 0;
+
     $self->handle_cvars($entry);
+  } continue {
+    $i++;
   }
 
   $self->add_cvar_raw_data_columns;
@@ -56,4 +67,4 @@ sub setup_displayable_columns {
                                 );
 }
 
-1;
\ No newline at end of file
+1;