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 = ?|;
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 $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}));