Applying patch to bugs 1699718 and 1713439

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1146 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 insertions, 1 deletions

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 9f3ac71d..b4f8316a 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -438,7 +438,7 @@ sub call_procedure {
     my @names = @{$sth->{NAME_lc}};
     while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
 	for (0 .. $#names){
-            if ($types[$_] eq 'NUMERIC'){
+            if ($types[$_] == 3){
                 $ref->{$names[$_]} = Math::BigFloat->new($ref->{$names[$_]});
             }
         }