use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Loader qw(edit_tickets log_update);

sub set_domain_ticket($;$) {
	my($idi,$kn) = @_;

	my($id,$okk) = DoFn("select kunde,ticket from domainkunde where id = $idi");
	my $kk = edit_tickets($id,1+4,$kn);
	return undef unless defined($kk);
	return 0 if defined $okk && $kk == $okk;
	$kk = "NULL" if $kk eq "-";

	log_update("domainkunde","id",$idi,undef,"ticket",undef,$okk);
	Do("update domainkunde set ticket=$kk where id=$idi");
	$kk;
}
1;
