ShippedQty: Chaining bei Aufruf mit leerem Array

[mfinanz.git] / SL / Helper / ShippedQty.pm

diff --git a/SL/Helper/ShippedQty.pm b/SL/Helper/ShippedQty.pm
index d89a306c754366d72562c723ced65b82b6287080..5135823e75a7b6195b76009288bfa4677c5dad7f 100644 (file)
--- a/SL/Helper/ShippedQty.pm
+++ b/SL/Helper/ShippedQty.pm
@@ -104,8 +104,6 @@ sub calculate {
 
   die 'Need exactly one argument, either id, object or arrayref of ids or objects.' unless 2 == @_;
 
 
   die 'Need exactly one argument, either id, object or arrayref of ids or objects.' unless 2 == @_;
 

-  return $self if !$data || ('ARRAY' eq ref $data && !@$data);
-

   $self->normalize_input($data);
 
   return $self unless @{ $self->oe_ids };
   $self->normalize_input($data);
 
   return $self unless @{ $self->oe_ids };


@@ -235,6 +233,8 @@ sub write_to {
 sub write_to_objects {
   my ($self) = @_;
 
 sub write_to_objects {
   my ($self) = @_;
 

+  return unless @{ $self->oe_ids };
+

   die 'Can only use write_to_objects, when calculate was called with objects. Use write_to instead.' unless $self->objects_or_ids;
 
   $self->write_to($self->objects);
   die 'Can only use write_to_objects, when calculate was called with objects. Use write_to instead.' unless $self->objects_or_ids;
 
   $self->write_to($self->objects);