SF.net SVN: ledger-smb: [1923] trunk/LedgerSMB/IC.pm

[..hidden..]

Revision: 1923
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1923&view=rev
Author:   tetragon
Date:     2007-11-29 13:40:18 -0800 (Thu, 29 Nov 2007)

Log Message:
-----------
More number format fixes

Modified Paths:
--------------
    trunk/LedgerSMB/IC.pm

Modified: trunk/LedgerSMB/IC.pm
===================================================================
--- trunk/LedgerSMB/IC.pm	2007-11-29 20:26:55 UTC (rev 1922)
+++ trunk/LedgerSMB/IC.pm	2007-11-29 21:40:18 UTC (rev 1923)
@@ -84,7 +84,8 @@
         $sth->execute( $form->{id} ) || $form->dberror($query);
 
         $form->{assembly_rows} = 0;
-        while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+        while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
+            $form->db_parse_numeric(sth => $sth, hashref => $ref);
             $form->{assembly_rows}++;
             foreach my $key ( keys %{$ref} ) {
                 $form->{"${key}_$form->{assembly_rows}"} = $ref->{$key};
@@ -114,7 +115,7 @@
             $sth = $dbh->prepare($query);
             $sth->execute( $form->{id} ) || $form->dberror($query);
 
-            while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+            while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
                 push @{ $form->{makemodels} }, $ref;
             }
             $sth->finish;
@@ -172,7 +173,8 @@
         $sth = $dbh->prepare($query);
         $sth->execute( $form->{id} ) || $form->dberror($query);
 
-        while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+        while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
+            $form->db_parse_numeric(sth => $sth, hashref => $ref);
             push @{ $form->{vendormatrix} }, $ref;
         }
         $sth->finish;
@@ -193,7 +195,8 @@
         $sth = $dbh->prepare($query);
         $sth->execute( $form->{id} ) || $form->dberror($query);
 
-        while ( $ref = $sth->fetchrow_hashref(NAME_lc) ) {
+        while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
+            $form->db_parse_numeric(sth => $sth, hashref => $ref);
             push @{ $form->{customermatrix} }, $ref;
         }
         $sth->finish;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.