diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-27 17:56:09 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-27 17:56:09 +0000 |
| commit | c9c437c6edd8e257418e80400e63b3c97683029c (patch) | |
| tree | 9206926a3a3a4dee9de59f63f149db78301de55d /LedgerSMB | |
| parent | 43c31cb5209a8f6bb2702057b7c51734d7c87af4 (diff) | |
Fix parsing of (n.m) form in parse_amount
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@337 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -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); |