summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-17 16:09:40 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-17 16:09:40 +0000
commit29f9f470a738eb3bc4a9894881e47c9c7cc826f4 (patch)
tree52bc63f6acb67951cab099e934224c7f26e74587
parent3df84aca68f24bb93f52ce7a9ad6040ffd3e06fc (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-xLedgerSMB/RP.pm4
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;