diff options
| -rwxr-xr-x | LedgerSMB/CP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/CP.pm b/LedgerSMB/CP.pm index edb474ed..150e226d 100755 --- a/LedgerSMB/CP.pm +++ b/LedgerSMB/CP.pm @@ -215,7 +215,7 @@ sub get_openinvoices { my $where = qq|WHERE a.$form->{vc}_id = $vc_id AND a.amount != a.paid|; - $curr = $dbh->quote($form->{curr}); + $curr = $dbh->quote($form->{currency}); $where .= qq| AND a.curr = $curr| if $form->{currency}; my $sortorder = "transdate, invnumber"; |