sanitize _update_ship / Prüfung auf form->id

Andernfalls wird ein Fehler auf undefined integer geworfen
und bspw. das Erfassen von neuen Aufträge ist nicht mehr möglich.

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index d6c09ce..eab8398 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1670,6 +1670,7 @@ sub _update_part_information {
 }
 
 sub _update_ship {
+  return unless $::form->{id};
   my $helper = SL::Helper::ShippedQty->new->calculate($::form->{id});
 
   for my $i (1..$::form->{rowcount}) {