$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);
$form->{valid_from} = '';
};
- $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!'));
- }
-
$query = qq|UPDATE chart SET
accno = ?,
description = ?,