diff options
| -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 9dd6f237..dc8d16e9 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -518,7 +518,7 @@ sub parse_amount { $amount =~ s/,//g; - if ($amount =~ s/\((\d+)\)/$1/){ + if ($amount =~ s/\((\d+.?\d*)\)/$1/){ $amount *= -1; } $amount = new Math::BigFloat($amount); |