diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/AA.pm | 1 | ||||
| -rwxr-xr-x | LedgerSMB/Form.pm | 3 | ||||
| -rwxr-xr-x | LedgerSMB/IS.pm | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/LedgerSMB/AA.pm b/LedgerSMB/AA.pm index b4311eae..dc6f6279 100755 --- a/LedgerSMB/AA.pm +++ b/LedgerSMB/AA.pm @@ -837,7 +837,6 @@ sub transactions { $query .= "WHERE $where ORDER BY $sortorder"; - my $sth = $dbh->prepare($query); $sth->execute(@paidargs) || $form->dberror($query); diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index a7fa9186..352b0ba0 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -1579,6 +1579,9 @@ sub update_exchangerate { @queryargs = ($sell); } + if (!$set){ + $self->error("Exchange rate missing!"); + } if ($sth->fetchrow_array) { $query = qq|UPDATE exchangerate SET $set diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 2796d5ba..f67fc5e5 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -1412,7 +1412,7 @@ sub post_invoice { $form->{duedate}, $form->{shippingpoint}, $form->{shipvia}, $form->{terms}, $form->{notes}, $form->{intnotes}, $form->{taxincluded}, $form->{currency}, $form->{department_id}, - $form->{employee_id}, $till, $form->{language_code}, + $form->{employee_id}, $form->{till}, $form->{language_code}, $form->{ponumber}, $form->{id}) || $form->dberror($query); |