ShippedQty: Übergabe von Strings als ids abfangen

diff --git a/SL/Helper/ShippedQty.pm b/SL/Helper/ShippedQty.pm
index 5135823e75a7b6195b76009288bfa4677c5dad7f..af2a4f47cbad5115418e3caa16a51233e329c869 100644 (file)
--- a/SL/Helper/ShippedQty.pm
+++ b/SL/Helper/ShippedQty.pm
@@ -258,6 +258,7 @@ sub normalize_input {
     $self->objects($data);
   } else {
     die 'object or reference in data while expecting ids' if any { ref($_) } @$data;
     $self->objects($data);
   } else {
     die 'object or reference in data while expecting ids' if any { ref($_) } @$data;

+    die 'ids need to be numbers'                          if any { ! ($_ * 1) } @$data;

     $self->oe_ids($data);
   }
 
     $self->oe_ids($data);
   }