CSV-Import: Neu anlegen gefixt

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

diff --git a/SL/Controller/CsvImport/Contact.pm b/SL/Controller/CsvImport/Contact.pm
index 5ca2ae848dcef9ae2ff801ca3f5671fdd80a4843..2eb877e97f2ef8a94bd9b8716fb63779368caf4f 100644 (file)
--- a/SL/Controller/CsvImport/Contact.pm
+++ b/SL/Controller/CsvImport/Contact.pm
@@ -47,7 +47,7 @@ sub check_objects {
     if ($object->cp_id) {
       my $existing_contact = $contacts_by_id{ $object->cp_id };
       if (!$existing_contact) {
-        $contacts_by_id{ $object->cp_id } = $object;
+        $contacts_by_id{ $object->cp_id } = $object if $object->cp_id;
 
       } elsif ($update_policy eq 'skip') {
         push(@{ $entry->{errors} }, $::locale->text('Skipping due to existing entry in database'));