From dbf1efaa612d24c3f3520a75de0155ca698b8673 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 31 Oct 2007 22:07:32 +0000
Subject: Get db_parse_numeric to recognise float4/real as a "numeric" type.  
 Fixes problems with discount retreival on invoices.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1831 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB.pm      | 3 ++-
 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[$_]})
-- 
cgit v1.2.3