From fe0f6f38468da0d737079034f0174c59d526d32c Mon Sep 17 00:00:00 2001
From: Udo Spallek <info@wissensvermittlung.com>
Date: Thu, 27 Oct 2005 17:06:05 +0000
Subject: [PATCH 1/1] =?utf8?q?=C3=84nderungen=20bez.=20sub=20round=5Famoun?=
 =?utf8?q?d=20von=20heute=20Morgen=20wieder=20herausgenommen,=20weil=20non?=
 =?utf8?q?funktional.=20Das=20problem=20scheint=20woanders=20zu=20liegen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Form.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

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;
-- 
2.20.1