Menge mit Nachkommastellen einlesen

fixt #2307

diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index df2fec8d7d18be5128e4bfbe8173a23f6cb7f248..cf0e806ceeee3e8b8847766bab5856cd001c4159 100644 (file)
--- 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) {
     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) {
 
 
       if ($rows > 1) {
 

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index f6cd5e7ac206ad356845fbdd426f6f7c93d6565b..ecc5f5577ca7836a8398c98c2b71c1421fc65f9d 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -547,7 +547,10 @@ sub update {
     }
 
     if ($rows) {
     }
 
     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) {
 
 
       if ($rows > 1) {
 

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index e4139ff97c17aa5c171455649b271261a5c8a32b..5db8f8e4db6778e7c0c4b8c15b12b76891ece148 100644 (file)
--- 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->{"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) {
 
 
       if ($rows > 1) {