projekt kivitendo

sub lead {

  $main::lxdebug->enter_sub();

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

  my $dbh = SL::DB->client->dbh;

  my $query = qq|SELECT id, lead

                 FROM leads

                 ORDER BY 2|;

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

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

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

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

  }

  $sth->finish;

  $main::lxdebug->leave_sub();

}

sub get_lead {

  $main::lxdebug->enter_sub();

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

  my $dbh = SL::DB->client->dbh;

  my $query =

    qq|SELECT l.id, l.lead | .

    qq|FROM leads l | .

    qq|WHERE l.id = ?|;

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

  $sth->execute($form->{id}) || $form->dberror($query . " ($form->{id})");

  my $ref = $sth->fetchrow_hashref("NAME_lc");

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

  $sth->finish;

  $main::lxdebug->leave_sub();

}

sub save_lead {

  $main::lxdebug->enter_sub();

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

  my ($query);

  my $dbh = SL::DB->client->dbh;

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

  # id is the old record

  if ($form->{id}) {

    $query = qq|UPDATE leads SET

                lead = ?

                WHERE id = ?|;

    push(@values, $form->{id});

  } else {

    $query = qq|INSERT INTO leads

                (lead)

                VALUES (?)|;

  }

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

  $main::lxdebug->leave_sub();

}

sub delete_lead {

  $main::lxdebug->enter_sub();

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

  my ($query);

  SL::DB->client->with_transaction(sub {

    $query = qq|DELETE FROM leads WHERE id = ?|;

    do_query($form, SL::DB->client->dbh, $query, $form->{id});

    1;

  }) or do { die SL::DB->client->error };

  $main::lxdebug->leave_sub();

}