1 files changed, 2 insertions, 1 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[$_]});
             }
         }