X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/420354a76d012eceb60d83f875dd6ca8bf2da7a4..8e35d05e35f63783ff403c7a4a5febe81cc43f8f:/SL/Controller/DeliveryPlan.pm

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