diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 16:09:40 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 16:09:40 +0000 |
commit | 29f9f470a738eb3bc4a9894881e47c9c7cc826f4 (patch) | |
tree | 52bc63f6acb67951cab099e934224c7f26e74587 | |
parent | 3df84aca68f24bb93f52ce7a9ad6040ffd3e06fc (diff) |
Apply db_parse_numeric to the correct hashref, fixes 1815081
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1770 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-x | LedgerSMB/RP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm index 861ec859..320e6a32 100755 --- a/LedgerSMB/RP.pm +++ b/LedgerSMB/RP.pm @@ -2376,8 +2376,8 @@ sub payments { $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query); - while ( my $pr = $sth->fetchrow_hashref(NAME_lc) ) { - $form->db_parse_numeric(sth=>$sth, hashref=>$ref); + while ( my $pr = $sth->fetchrow_hashref('NAME_lc') ) { + $form->db_parse_numeric(sth=>$sth, hashref=>$pr); push @{ $form->{ $ref->{id} } }, $pr; } $sth->finish; |