From 69c4afb76eaafbbe668a66775e6072df5ce5bd49 Mon Sep 17 00:00:00 2001
From: Udo Spallek <info@wissensvermittlung.com>
Date: Thu, 27 Oct 2005 19:23:41 +0000
Subject: [PATCH] =?utf8?q?Die=20Anzahl=20der=20dargestellten=20Nachkommast?=
 =?utf8?q?ellen=20jedes=20einzelnen=20Preises=20sollte=20mit=20der=20einge?=
 =?utf8?q?gebenen=20Anzahl=20an=20Nachkommastellen=20=C3=83=C5=92bereinsti?=
 =?utf8?q?mmen.=20Die=20eingegebenen=20Preise=20sollten=20nicht=20gerundet?=
 =?utf8?q?=20werden.=20(=C3=83=C2=84nderungen=20bez.=20Email=20vom=2027.10?=
 =?utf8?q?.2004=2018:30=20von=20Udo=20Spallek)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/ic.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index 81db76741..6d49eab28 100644
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -1955,6 +1955,16 @@ sub link_part {
 sub form_header {
   $lxdebug->enter_sub();
 
+  my $dec = '';
+  
+  #decimalplaces for listprice
+  ($dec) = ($form->{listprice} =~ /\.(\d+)/);
+  $dec = length $dec;
+  my $decimalplaces = ($dec > 2) ? $dec : 2;
+  $form->{listprice} =
+    $form->format_amount(\%myconfig, $form->{listprice}, $decimalplaces);
+
+  #decimalplaces for sellprice and gv
   ($dec) = ($form->{sellprice} =~ /\.(\d+)/);
   $dec = length $dec;
   my $decimalplaces = ($dec > 2) ? $dec : 2;
@@ -1962,7 +1972,7 @@ sub form_header {
   map {
     $form->{$_} =
       $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces)
-  } qw(listprice sellprice gv);
+  } qw(sellprice gv);
 
   ($dec) = ($form->{lastcost} =~ /\.(\d+)/);
   $dec = length $dec;
-- 
2.39.5