Unit-Factor kann 0 sein.

diff --git a/SL/WH.pm b/SL/WH.pm
index 3fbbfa4a5689bd5631a1aa2c786ac84165072cb7..e98321616540087a7ef5f13bdedbdbfba9ff7e98 100644 (file)
--- a/SL/WH.pm
+++ b/SL/WH.pm
@@ -109,7 +109,7 @@ sub transfer {
       );
 
       if ($unit) {
       );
 
       if ($unit) {

-        $qty *= $unit->factor;
+        $qty *= $unit->factor           || 1;

         $qty /= $part->unit_obj->factor || 1 if $part->unit;
       }
 
         $qty /= $part->unit_obj->factor || 1 if $part->unit;
       }