projekt kivitendo

use SL::DBUtils;

sub partsgroups {

  $main::lxdebug->enter_sub();

  $form->{discount} /= 100;

  my @values = ($form->{partsgroup});

  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});

  map({ $form->{$_} = $ref->{$_} } keys(%{$ref}));

  $sth->finish;

  my $table = $form->{type} eq "pricegroup" ? "pricegroup" : "partsgroup";

  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});

  map({ $form->{$_} = $ref->{$_} } keys(%{$ref}));