Unit-Factor kann 0 sein.

diff --git a/SL/WH.pm b/SL/WH.pm
index 3fbbfa4..e983216 100644 (file)
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -109,7 +109,7 @@ sub transfer {
       );
 
       if ($unit) {
-        $qty *= $unit->factor;
+        $qty *= $unit->factor           || 1;
         $qty /= $part->unit_obj->factor || 1 if $part->unit;
       }