diff options
| -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; |