projekt kivitendo

sub adr {

  $main::lxdebug->enter_sub();

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

  # connect to database

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

  my $query = qq|SELECT id, adr_description, adr_code

                 FROM adr

		 ORDER BY adr_code|;

  $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_adr {

  $main::lxdebug->enter_sub();

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

  # connect to database

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

  my $query =

    qq|SELECT a.adr_description, a.adr_code

                 FROM adr a

	         WHERE a.id = $form->{id}|;

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

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

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

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

  $sth->finish;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub save_adr {

  $main::lxdebug->enter_sub();

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

  # connect to database

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

  $form->{adr_description} =~ s/\'/\'\'/g;

  $form->{adr_code} =~ s/\'/\'\'/g;

  # id is the old record

  if ($form->{id}) {

    $query = qq|UPDATE adr SET

		adr_description = '$form->{adr_description}',

		adr_code = '$form->{adr_code}'

		WHERE id = $form->{id}|;

  } else {

    $query = qq|INSERT INTO adr

                (adr_description, adr_code)

                VALUES ('$form->{adr_description}', '$form->{adr_code}')|;

  }

  $dbh->do($query) || $form->dberror($query);

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

sub delete_adr {

  $main::lxdebug->enter_sub();

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

  # connect to database

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

  $query = qq|DELETE FROM adr

	      WHERE id = $form->{id}|;

  $dbh->do($query) || $form->dberror($query);

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}