projekt kivitendo

sub business {

  $main::lxdebug->enter_sub();

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

  # connect to database

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

  my $query = qq|SELECT id, description, discount, customernumberinit, salesman

                 FROM business

                 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;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub get_business {

  $main::lxdebug->enter_sub();

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

  # connect to database

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

  my $query =

    qq|SELECT b.description, b.discount, b.customernumberinit, b.salesman

       FROM business b

       WHERE b.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;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub save_business {

  $main::lxdebug->enter_sub();

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

  my ($query);

  # connect to database

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

  my @values = ($form->{description}, $form->{discount}, $form->{customernumberinit}, $form->{salesman} ? 't' : 'f');

  # id is the old record

  if ($form->{id}) {

    $query = qq|UPDATE business SET

                description = ?,

                discount = ?,

                customernumberinit = ?,

                salesman = ?

                WHERE id = ?|;

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

  } else {

    $query = qq|INSERT INTO business

                (description, discount, customernumberinit, salesman)

                VALUES (?, ?, ?, ?)|;

  }

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

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub delete_business {

  $main::lxdebug->enter_sub();

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

  # connect to database

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

  my $query = qq|DELETE FROM business

              WHERE id = ?|;

  do_query($form, $dbh, $query, $form->{id});

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}