# 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}) {
WHERE $where
ORDER BY $sortorder|;
}
-print STDERR "asdfasdf-$query\n";
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
# connect to database
my $dbh = $form->dbconnect($myconfig);
- map { $form->{$_} =~ s/\'/\'\'/g } (pricegroup);
+ map { $form->{$_} =~ s/\'/\'\'/g } qw(pricegroup);
$form->{discount} /= 100;
#
sub get_pricegroup {
$main::lxdebug->enter_sub();
-print STDERR "PE.pm-get_pricegroup\n";
+
my ($self, $myconfig, $form) = @_;
# connect to database
$sth->finish;
$dbh->disconnect;
-#print (STDERR " ", Dumper($form));
+
$main::lxdebug->leave_sub();
}