diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 16:09:26 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 16:09:26 +0000 |
| commit | 45f92ca6f507b6c3f88de026849d8550d750d212 (patch) | |
| tree | 86e0b4af9fc3fbb762bd3267f0bce2676062deaa | |
| parent | 28804ff6767e43c8a8bb43f1b490baf8c0f82975 (diff) | |
Apply db_parse_numeric to the correct hashref, fixes 1815081
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1769 4979c152-3d1c-0410-bac9-87ea11338e46
| -rw-r--r-- | LedgerSMB/RP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm index 4854355e..86709551 100644 --- a/LedgerSMB/RP.pm +++ b/LedgerSMB/RP.pm @@ -2289,7 +2289,7 @@ sub payments { $sth->execute || $form->dberror($query); while ( my $pr = $sth->fetchrow_hashref(NAME_lc) ) { - $form->db_parse_numeric(sth=>$sth, hashref=>$ref); + $form->db_parse_numeric(sth=>$sth, hashref=>$pr); push @{ $form->{ $ref->{id} } }, $pr; } $sth->finish; |