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

diff --git a/SL/Controller/DeliveryPlan.pm b/SL/Controller/DeliveryPlan.pm
index ebb0dba503513a08f9d0649c9e5c2609bec77d5e..461f25adba1a411b18eedd6589421bcd4ee97575 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