From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Thu, 9 Sep 2021 09:56:06 +0000 (+0200)
Subject: ShippedQty-Helper: undef-Warnung vermeiden
X-Git-Tag: kivitendo-mebil_0.1-0~10^2~2^2~360
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=95f5cbc1134f35cf2908f92bf69bf0fd4bbdb70b;p=kivitendo-erp.git

ShippedQty-Helper: undef-Warnung vermeiden
---

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";