- my $datepaid = ($form->{paid} != 0) ? qq|'$form->{datepaid}'| : 'NULL';
-
- $query = qq|UPDATE ar set
- invnumber = '$form->{invnumber}',
- ordnumber = '$form->{ordnumber}',
- transdate = '$form->{transdate}',
- customer_id = $form->{customer_id},
- taxincluded = '$form->{taxincluded}',
- amount = $form->{amount},
- duedate = '$form->{duedate}',
- paid = $form->{paid},
- datepaid = $datepaid,
- netamount = $form->{netamount},
- curr = '$form->{currency}',
- notes = '$form->{notes}',
- department_id = $form->{department_id},
- employee_id = $form->{employee_id}
- WHERE id = $form->{id}|;
- $dbh->do($query) || $form->dberror($query);
+ my $datepaid = ($form->{paid} != 0) ? $form->{datepaid} : undef;
+
+ $query =
+ qq|UPDATE ar set | .
+ qq| invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?, | .
+ qq| taxincluded = ?, amount = ?, duedate = ?, paid = ?, datepaid = ?, | .
+ qq| netamount = ?, curr = ?, notes = ?, department_id = ?, | .
+ qq| employee_id = ? | .
+ qq|WHERE id = ?|;
+ my @values = ($form->{invnumber}, $form->{ordnumber},
+ conv_date($form->{transdate}), conv_i($form->{customer_id}),
+ $form->{taxincluded} ? 't' : 'f', $form->{amount},
+ conv_date($form->{duedate}), $form->{paid},
+ conv_date($datepaid), $form->{netamount},
+ $form->{currency}, $form->{notes},
+ conv_i($form->{department_id}),
+ conv_i($form->{employee_id}),
+ conv_i($form->{id}));
+ do_query($form, $dbh, $query, @values);