From: Philip Reetz <p.reetz@linet-services.de>
Date: Wed, 7 Dec 2005 09:45:18 +0000 (+0000)
Subject: Problem bei Preisgruppen und Kommabetraegen und individuellen Preisen geloest
X-Git-Tag: release-2.4.0^2~439
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=59c5df71d3b5dc4dc46e67ad9271d37ce5b9ca24;p=kivitendo-erp.git

Problem bei Preisgruppen und Kommabetraegen und individuellen Preisen geloest
---

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index d4eabdf79..16f982391 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -425,7 +425,6 @@ sub set_pricegroup {
   my $rowcount = shift;
   $lxdebug->enter_sub();
   for $j (1 .. $rowcount) {
-
     my $pricegroup_old = $form->{"pricegroup_old_$i"};
     if ($form->{PRICES}{$j}) {
       $len    = 0;
@@ -443,20 +442,26 @@ sub set_pricegroup {
           qq|<option value="$price--$pricegroup_id"$item->{selected}>$pricegroup</option>\n|;
 
         $len += 1;
+        map {
+              $form->{"${_}_$j"} =
+              $form->format_amount(\%myconfig, $form->{"${_}_$j"})
+             } qw(sellprice price_new price_old);
 
         # set new selectedpricegroup_id and prices for "Preis"
-        if ($item->{selected}) {
+        if ($item->{selected} && ($pricegroup_id != 0)) {
           $form->{"pricegroup_old_$j"} = $pricegroup_id;
           $form->{"price_new_$j"}      = $price;
           $form->{"sellprice_$j"}      = $price;
         }
-        if ($len >= 1) {
+        if ($pricegroup_id == 0) {
+          $form->{"price_new_$j"} = $form->{"sellprice_$j"};
+        }
+        if ($len > 1) {
           $form->{"prices_$j"} = $prices;
         }
       }
     }
   }
-
   $lxdebug->leave_sub();
 }