diff options
| -rwxr-xr-x | LedgerSMB.pm | 3 | ||||
| -rw-r--r-- | LedgerSMB/Form.pm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm index 99a3d994..d2eeb9bc 100755 --- a/LedgerSMB.pm +++ b/LedgerSMB.pm @@ -555,7 +555,8 @@ sub call_procedure { my @names = @{$sth->{NAME_lc}}; while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) { for (0 .. $#names){ - if ($types[$_] == 3){ + # numeric float4/real + if ($types[$_] == 3 or $types[$_] == 2) { $ref->{$names[$_]} = Math::BigFloat->new($ref->{$names[$_]}); } } diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 7cceffea..9e7c7748 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -856,7 +856,8 @@ sub db_parse_numeric { my @types = @{$sth->{TYPE}}; my @names = @{$sth->{NAME_lc}}; for (0 .. $#names){ - if ($types[$_] == 3){ + # numeric float4/real + if ($types[$_] == 3 or $types[$_] ==2) { $arrayref->[$_] = Math::BigFloat->new($arrayref->[$_]) if defined $arrayref; $hashref->{$names[$_]} = Math::BigFloat->new($hashref->{$names[$_]}) |