CsvImport: Makemodels auch auf instabilen Datenbanken in der richtigen Reihenfolge...

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

diff --git a/SL/Controller/CsvImport/Part.pm b/SL/Controller/CsvImport/Part.pm
index 9f4ed7284327948a5c976fb68df8d044bfa9a796..33301d140c4991dfb4969398f8c9fe337a87ecec 100644 (file)
--- a/SL/Controller/CsvImport/Part.pm
+++ b/SL/Controller/CsvImport/Part.pm
@@ -428,6 +428,7 @@ sub handle_makemodel {
   }
 
   my %old_makemodels_by_mm = map { $_->make . $; . $_->model => $_ } $entry->{part}->makemodels;
   }
 
   my %old_makemodels_by_mm = map { $_->make . $; . $_->model => $_ } $entry->{part}->makemodels;

+  my @new_makemodels;

 
   foreach my $makemodel ($object->makemodels()) {
     my $makemodel_orig = $old_makemodels_by_mm{$makemodel->make,$makemodel->model};
 
   foreach my $makemodel ($object->makemodels()) {
     my $makemodel_orig = $old_makemodels_by_mm{$makemodel->make,$makemodel->model};


@@ -438,10 +439,12 @@ sub handle_makemodel {
       $makemodel_orig->lastcost($makemodel->lastcost);
 
     } else {
       $makemodel_orig->lastcost($makemodel->lastcost);
 
     } else {

-      $entry->{part}->add_makemodels($makemodel);
+      push @new_makemodels, $makemodel;

     }
   }
 
     }
   }
 

+  $entry->{part}->makemodels([ $entry->{part}->makemodels, @new_makemodels ]) if @new_makemodels;
+

   # reindex makemodels
   my $i = 0;
   $_->sortorder(++$i) for @{ $entry->{part}->makemodels };
   # reindex makemodels
   my $i = 0;
   $_->sortorder(++$i) for @{ $entry->{part}->makemodels };