projekt kivitendo

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

  # connect to database

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

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

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

  while (my ($accno, $description) = $sth->fetchrow_array) {

    $gifi{$accno} = $description;

  }