CsvImport Aufträge: interne Bemerkungen aus Kunden-/Lieferantenbemerkunen setzen

falls keine intnotes in der CSV-Datei angegeben sind.

diff --git a/SL/Controller/CsvImport/Order.pm b/SL/Controller/CsvImport/Order.pm
index 35f4fb40cddea116f8f4ebd23defd737b8e3e5e9..e26421bd881b031f18d2ce88349957384c11a5d0 100644 (file)
--- a/SL/Controller/CsvImport/Order.pm
+++ b/SL/Controller/CsvImport/Order.pm
@@ -344,6 +344,7 @@ sub handle_order {
     foreach (qw(payment_id delivery_term_id language_id taxzone_id currency_id)) {
       $object->$_($vc_obj->$_) unless $object->$_;
     }
     foreach (qw(payment_id delivery_term_id language_id taxzone_id currency_id)) {
       $object->$_($vc_obj->$_) unless $object->$_;
     }

+    $object->intnotes($vc_obj->notes) unless $object->intnotes;

   }
 
   $self->handle_salesman($entry);
   }
 
   $self->handle_salesman($entry);