- $query = qq|INSERT INTO employee (login, name, workphone, role)
- VALUES ('$self->{login}', '$myconfig{name}',
- '$myconfig{tel}', 'user')|;
- $dbh->do($query);
+ $query = qq|INSERT INTO employee (login, name, workphone, role)| .
+ qq|VALUES (?, ?, ?, ?)|;
+ my @values = ($self->{login}, $myconfig{name}, $myconfig{tel}, "user");
+ do_query($form, $dbh, $query, @values);