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