Behandlung von neu zu vergebenen Artikelnummern gefixt

diff --git a/SL/Controller/CsvImport/Part.pm b/SL/Controller/CsvImport/Part.pm
index d42a2db413051037b58aa95e45b93560d98769fb..9d0e66ba33699b8ef1233198370906367413725f 100644 (file)
--- a/SL/Controller/CsvImport/Part.pm
+++ b/SL/Controller/CsvImport/Part.pm
@@ -366,16 +366,24 @@ sub init_profile {
   my ($self) = @_;
 
   my $profile = $self->SUPER::init_profile;
   my ($self) = @_;
 
   my $profile = $self->SUPER::init_profile;

-  delete $profile->{type};
-
-  $::lxdebug->dump(0, "prof", $profile);
+  delete @{$profile}{qw(type priceupdate)};

 
   return $profile;
 }
 
 
   return $profile;
 }
 

+sub save_objects {
+  my ($self, %params) = @_;
+
+  my $with_number    = [ grep { $_->{object}->partnumber ne '####' } @{ $self->controller->data } ];
+  my $without_number = [ grep { $_->{object}->partnumber eq '####' } @{ $self->controller->data } ];
+
+  map { $_->{object}->partnumber('') } @{ $without_number };
+
+  $self->SUPER::save_objects(data => $with_number);
+  $self->SUPER::save_objects(data => $without_number);
+}

 
 # TODO:
 
 # TODO:

-#  priceupdate aus Profil raus

 #  CVARs ins Profil rein
 
 1;
 #  CVARs ins Profil rein
 
 1;