summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-21 03:06:46 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-21 03:06:46 +0000
commit39fd76db4fe613342f89500d4745ee3672559bde (patch)
tree9a761e7b801fcef64408f9cc75d0ee2266b1323a
parent02538a32dbdba7af56ef4be2fb02a043cf03bc81 (diff)
Correcting braindead logic....
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@246 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xLedgerSMB/Form.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index f1083634..8c9cc51a 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -489,8 +489,7 @@ sub parse_amount {
my ($self, $myconfig, $amount) = @_;
- UNIVERSAL::isa($amount, 'Math::BigFloat'); # Amount may not be an object
- if (!$@ and $amount->isa('Math::BigFloat')){
+ if (!UNIVERSAL::isa($amount, 'Math::BigFloat')){ # Amount may not be an object
return $amount;
}
my $numberformat = $myconfig->{numberformat};