From: Udo Spallek <info@wissensvermittlung.com>
Date: Thu, 27 Oct 2005 17:06:05 +0000 (+0000)
Subject: Änderungen bez. sub round_amound von heute Morgen wieder herausgenommen, weil nonfunk... 
X-Git-Tag: release-2.4.0^2~493
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;ds=inline;h=fe0f6f38468da0d737079034f0174c59d526d32c;hp=f43900dd2dc883a18c3aab1d1fb760ca47e88874;p=kivitendo-erp.git

Änderungen bez. sub round_amound von heute Morgen wieder herausgenommen, weil nonfunktional. Das problem scheint woanders zu liegen.
---

diff --git a/SL/Form.pm b/SL/Form.pm
index d4c456ab3..80c1ef72c 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -610,16 +610,11 @@ sub round_amount {
   # Descr. http://de.wikipedia.org/wiki/Rundung
   # Inspired by 
   # http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.13.html
-  # Solves Bug: 189
+  # Version 1.0 try to solve Bug: 189
   # Udo Spallek
   $amount       = $amount * (10 ** ($places));
   $round_amount = int($amount + .5 * ($amount <=> 0))/(10**($places));
   
-  while ($places > 0 && $round_amount=~ /\./){
-  $round_amount =~ s/[0]$//g;
-  $places--;
-  } ;
-  #$round_amount =~ s/\.$//g;
   $main::lxdebug->leave_sub();
 
   return $round_amount;