projekt kivitendo

  $main::lxdebug->enter_sub();

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

  my ($dbh, $sth, $query, @values);

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

  my ($module, $submodule) = $self->get_module($form);

  my @list = ();

  $query =

    qq|SELECT d.id, d.description, d.itime::timestamp(0) AS itime, | .

    qq|  e.name AS employee_name | .

    qq|FROM drafts d | .

    qq|LEFT JOIN employee e ON d.employee_id = e.id | .

    qq|WHERE (d.module = ?) AND (d.submodule = ?) | .

    qq|ORDER BY d.itime|;

  @values = ($module, $submodule);

  $sth = prepare_execute_query($form, $dbh, $query, @values);

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

    push(@list, $ref);

  }

  $sth->finish();

  $dbh->disconnect();

  $main::lxdebug->leave_sub();