From 1d827e31101989a1ad1303fbaba5ccc827561b82 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Stephan=20K=C3=B6hler?= <s.koehler@linet-services.de>
Date: Fri, 23 Dec 2005 14:40:09 +0000
Subject: [PATCH] Preisgruppen: Doppeltes format_amount, abschneiden der
 Nachkommastelle Fehler aufgetaucht nach Revision 705 in Verbindung mit Bug
 233

---
 bin/mozilla/io.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 608726ff4..5cd38cd81 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -431,8 +431,8 @@ sub set_pricegroup {
       $prices = '';
       $price  = 0;
       foreach $item (@{ $form->{PRICES}{$j} }) {
-        $price = $form->round_amount($myconfig,  $item->{price}, 5);
-        $price = $form->format_amount($myconfig, $item->{price}, 2);
+        #$price = $form->round_amount($myconfig,  $item->{price}, 5);
+        #$price = $form->format_amount($myconfig, $item->{price}, 2);
         $price = $item->{price};
         $pricegroup_id = $item->{pricegroup_id};
         $pricegroup    = $item->{pricegroup};
@@ -442,10 +442,10 @@ 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);
+#        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} && ($pricegroup_id != 0)) {
-- 
2.20.1