$form->{id} = "";
}
+ $query = '
+ SELECT
+ accno
+ FROM chart
+ WHERE accno = ?';
+ my ($accno) = selectrow_query($form, $dbh, $query, $form->{accno});
+
+ if ($accno) {
+ $form->error($::locale->text('Account number not unique!'));
+ }
+
+
if (!$form->{id} || $form->{id} eq "") {
$query = qq|SELECT nextval('id')|;
($form->{"id"}) = selectrow_query($form, $dbh, $query);