ShippedQty: Übergabe von Strings als ids abfangen

diff --git a/SL/Helper/ShippedQty.pm b/SL/Helper/ShippedQty.pm
index 5135823..af2a4f4 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;
+    die 'ids need to be numbers'                          if any { ! ($_ * 1) } @$data;
     $self->oe_ids($data);
   }