diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-29 21:40:18 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-29 21:40:18 +0000 |
commit | 7791fb2e1d90b7ff1c25d0096c18a85a1aee2972 (patch) | |
tree | c63c4665a1743866139fb7fc37ac5e319b75138c /LedgerSMB | |
parent | 6834bed0070192ee78e7b4056e72f94e37b46162 (diff) |
More number format fixes
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1923 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rw-r--r-- | LedgerSMB/IC.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm index 1f016394..f20cabf0 100644 --- a/LedgerSMB/IC.pm +++ b/LedgerSMB/IC.pm @@ -84,7 +84,8 @@ sub get_part { $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 @@ sub get_part { $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 @@ sub get_part { $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 @@ sub get_part { $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; |