From 2a61343ffdeee475d57c355d00955ff8f1937aef Mon Sep 17 00:00:00 2001
From: Thomas Heck <theck@linet-services.de>
Date: Mon, 8 Jul 2013 17:51:00 +0200
Subject: [PATCH] Menge mit Nachkommastellen einlesen

fixt #2307
---
 bin/mozilla/do.pl | 5 ++++-
 bin/mozilla/is.pl | 5 ++++-
 bin/mozilla/oe.pl | 6 +++++-
 3 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index df2fec8d7..cf0e806ce 100644
--- a/bin/mozilla/do.pl
+++ b/bin/mozilla/do.pl
@@ -396,7 +396,10 @@ sub update_delivery_order {
     my $rows = scalar @{ $form->{item_list} };
 
     if ($rows) {
-      $form->{"qty_$i"} = 1 unless $form->parse_amount(\%myconfig, $form->{"qty_$i"});
+      $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
+      if( !$form->{"qty_$i"} ) {
+        $form->{"qty_$i"} = 1;
+      }
 
       if ($rows > 1) {
 
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index f6cd5e7ac..ecc5f5577 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -547,7 +547,10 @@ sub update {
     }
 
     if ($rows) {
-      $form->{"qty_$i"} = ($form->{"qty_$i"} * 1) ? $form->{"qty_$i"} : 1;
+      $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
+      if( !$form->{"qty_$i"} ) {
+        $form->{"qty_$i"} = 1;
+      }
 
       if ($rows > 1) {
 
diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index e4139ff97..5db8f8e4d 100644
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -597,7 +597,11 @@ sub update {
     $form->{"lastcost_$i"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$i"});
 
     if ($rows) {
-      $form->{"qty_$i"} = 1 unless ($form->parse_amount(\%myconfig, $form->{"qty_$i"}));
+
+      $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
+      if( !$form->{"qty_$i"} ) {
+        $form->{"qty_$i"} = 1;
+      }
 
       if ($rows > 1) {
 
-- 
2.20.1