projekt kivitendo

  $sth = $dbh->prepare($query);

  $sth->execute || $form->dberror($query);

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {

    push @{ $form->{ALL} }, $ref;

  }

  $sth = $dbh->prepare($query);

  $sth->execute || $form->dberror($query);

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {

    push @{ $form->{ALL} }, $ref;

  }

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

  my $dbh = $form->dbconnect($myconfig);

  if ($form->{id}) {

      qq|SELECT description, inventory_accno_id,

         (SELECT accno FROM chart WHERE id = inventory_accno_id) AS inventory_accno,

         income_accno_id_0,

    $sth->finish;

      qq|SELECT count(id) = 0 AS orphaned

         FROM parts

         WHERE buchungsgruppen_id = ?|;

  # save first currency in myconfig

  $form->{currency} = substr($form->{curr}, 0, 3);

  foreach my $item (keys %$form) {

    $myconfig->{$item} = $form->{$item};