X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/f43900dd2dc883a18c3aab1d1fb760ca47e88874..fe0f6f38468da0d737079034f0174c59d526d32c:/SL/Form.pm

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;