Eine Warnung über undefinierte Werte vermeiden.

diff --git a/SL/WH.pm b/SL/WH.pm
index a8492ec..91ac127 100644 (file)
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -602,7 +602,7 @@ sub get_warehouse_report {
       @all_fields                    = keys %{ $ref } unless (@all_fields);
     }
 
-    $ref->{stock_value} *= $ref->{qty};
+    $ref->{stock_value} = ($ref->{stock_value} || 0) * $ref->{qty};
 
     push @contents, $ref;
   }