diff options
| -rwxr-xr-x | LedgerSMB/IR.pm | 2 | ||||
| -rwxr-xr-x | LedgerSMB/RP.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm index e47093bc..01bb05ca 100755 --- a/LedgerSMB/IR.pm +++ b/LedgerSMB/IR.pm @@ -595,7 +595,7 @@ sub post_invoice { WHERE accno = ?), ?, ?)|; - $sth = $dbh->$dbh->prepare($query); + $sth = $dbh->prepare($query); $sth->execute( $form->{id}, $form->{AP}, $amount, $form->{"datepaid_$i"} diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm index 8be97f17..dbb3294b 100755 --- a/LedgerSMB/RP.pm +++ b/LedgerSMB/RP.pm @@ -1419,7 +1419,7 @@ sub aging { my $dbh = $form->{dbh}; my $invoice = ($form->{arap} eq 'ar') ? 'is' : 'ir'; - my $query = qq|SELECT value FROM defaults WHERE settings_key = 'curr'|; + my $query = qq|SELECT value FROM defaults WHERE setting_key = 'curr'|; ($form->{currencies}) = $dbh->selectrow_array($query); ($null, $form->{todate}) |