summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-29 21:40:36 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-11-29 21:40:36 +0000
commit9eb0bb043420ce3647c45e7690cc3c33f005dcac (patch)
tree421079bbd8158bffa38ce515bdc70e179fb8aeb4 /LedgerSMB
parente9ca709ec10b5d44eb0f1352e3438e02d5ebc93c (diff)
More number formatting fixes
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1924 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/IC.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm
index 4a98f8a4..04571bb0 100755
--- 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};
@@ -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;