diff options
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-x | LedgerSMB/Form.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index f0a581cd..a53668b1 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -554,7 +554,6 @@ sub parse_amount { my $decimalplaces = length $1 + length $2; $amount = new Math::BigFloat($amount); - #$amount->accuracy($decimalplaces); return ( $amount * 1 ); } @@ -571,6 +570,7 @@ sub round_amount { $amount = Math::BigFloat->new($amount)->ffround( -$places ) if $places >= 0; $amount = Math::BigFloat->new($amount)->ffround( -( $places - 1 ) ) if $places < 0; + $amount->precision(undef); return $amount; } |