From 95f5cbc1134f35cf2908f92bf69bf0fd4bbdb70b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Thu, 9 Sep 2021 11:56:06 +0200 Subject: [PATCH] ShippedQty-Helper: undef-Warnung vermeiden --- SL/Helper/ShippedQty.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/Helper/ShippedQty.pm b/SL/Helper/ShippedQty.pm index 383a3a3fc..6b878a972 100644 --- a/SL/Helper/ShippedQty.pm +++ b/SL/Helper/ShippedQty.pm @@ -162,9 +162,9 @@ sub init_require_stock_out { $::instance_conf->get_shipped_qty_require_stock_ sub init_services_deliverable { my ($self) = @_; - if ($::form->{type} =~ m/^sales_/ || $self->{objects}->[0]->{customer_id}) { + if (($::form->{type}//'') =~ m/^sales_/ || $self->{objects}->[0]->{customer_id}) { $::instance_conf->get_sales_delivery_order_check_service; - } elsif ($::form->{type} =~ m/^purchase_/ || $self->{objects}->[0]->{vendor_id}) { + } elsif (($::form->{type}//'') =~ m/^purchase_/ || $self->{objects}->[0]->{vendor_id}) { $::instance_conf->get_purchase_delivery_order_check_service; } else { croak "wrong call, no customer or vendor object referenced"; -- 2.20.1