- my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
- my ($query, @values);
-
- if (!$params{id}) {
- ($params{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('note_id')|);
- $query = qq|INSERT INTO notes (created_by, trans_id, trans_module, subject, body, id)
- VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|;
- push @values, $form->{login}, conv_i($params{trans_id}), $params{trans_module};