DeliveryPlan: Nicht abstürzen, wenn keine Einträge gefunden wurden

diff --git a/SL/Controller/DeliveryPlan.pm b/SL/Controller/DeliveryPlan.pm
index ebb0dba..461f25a 100644 (file)
--- a/SL/Controller/DeliveryPlan.pm
+++ b/SL/Controller/DeliveryPlan.pm
@@ -126,6 +126,8 @@ sub calc_qtys {
 
   my %orderitems_by_id = map { $_->id => $_ } @$orderitems;
 
+  return unless @$orderitems;
+
   my $query = <<SQL;
     SELECT oi.id, doi.qty, doi.qty, doi.unit, doe.delivered
     FROM record_links rl