# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (projectnumber, description);
+ map { $form->{$_} =~ s/\'/\'\'/g } qw(projectnumber description);
if ($form->{id}) {
$query = qq|UPDATE project SET
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (partsgroup);
-
+ map { $form->{$_} =~ s/\'/\'\'/g } qw(partsgroup);
$form->{discount} /= 100;
if ($form->{id}) {
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (pricegroup);
+ map { $form->{$_} =~ s/\'/\'\'/g } qw(pricegroup);
$form->{discount} /= 100;