projekt kivitendo

  my ($dbh, $sth, $query, %saved, $dumped);

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

  do_query($form, $dbh, $query, $draft_description, $dumped, $form->{login}, $draft_id);

  $dbh->commit();

  $form->{draft_id}          = $draft_id;

  $form->{draft_description} = $draft_description;

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

  $query = qq|SELECT id, description, form FROM drafts WHERE id = ?|;

  }

  $sth->finish();

  $main::lxdebug->leave_sub();

  return @values;

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

  $query = qq|DELETE FROM drafts WHERE id IN (| . join(", ", map { "?" } @draft_ids) . qq|)|;

  do_query($form, $dbh, $query, @draft_ids);

  $main::lxdebug->leave_sub();

}