use SL::DBUtils;
+use strict;
+
sub partsgroups {
$main::lxdebug->enter_sub();
$form->{discount} /= 100;
my @values = ($form->{partsgroup});
+ my $query;
if ($form->{id}) {
$query = qq|UPDATE partsgroup SET partsgroup = ? WHERE id = ?|;
- push(@values, $form->{id});
+ push(@values, $form->{id});
} else {
$query = qq|INSERT INTO partsgroup (partsgroup) VALUES (?)|;
}
qq|WHERE pg.id = ?|;
my $sth = prepare_execute_query($form, $dbh, $query, $form->{id},
$form->{id});
- my $ref = $sth->fetchrow_hashref(NAME_lc);
+ my $ref = $sth->fetchrow_hashref("NAME_lc");
map({ $form->{$_} = $ref->{$_} } keys(%{$ref}));
$sth->finish;
my $table = $form->{type} eq "pricegroup" ? "pricegroup" : "partsgroup";
- $query = qq|DELETE FROM $table WHERE id = ?|;
+ my $query = qq|DELETE FROM $table WHERE id = ?|;
do_query($form, $dbh, $query, $form->{id});
$dbh->disconnect;
my $first = 1;
$where .= qq| AND id NOT IN (|;
- foreach my $table (qw(invoice orderitems prices rmaitems)) {
+ foreach my $table (qw(invoice orderitems prices)) {
$where .= "UNION " unless ($first);
$first = 0;
$where .=
if ($form->{id}) {
$query = qq|UPDATE pricegroup SET pricegroup = ? WHERE id = ? |;
- push(@values, $form->{id});
+ push(@values, $form->{id});
} else {
$query = qq|INSERT INTO pricegroup (pricegroup) VALUES (?)|;
}
my $query = qq|SELECT id, pricegroup FROM pricegroup WHERE id = ?|;
my $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
- my $ref = $sth->fetchrow_hashref(NAME_lc);
+ my $ref = $sth->fetchrow_hashref("NAME_lc");
map({ $form->{$_} = $ref->{$_} } keys(%{$ref}));
my @values = ();
$query = qq|SELECT |;
- foreach my $table (qw(invoice orderitems prices rmaitems)) {
+ foreach my $table (qw(invoice orderitems prices)) {
$query .= " + " unless ($first);
$first = 0;
$query .= qq|(SELECT COUNT(*) FROM $table WHERE pricegroup_id = ?) |;