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

sub set_handle_ticket($$;$) {
	my($pers,$nic,$kn) = @_;

	return unless valid_handle($pers,$nic,1,$kn);

	my $tick = edit_tickets(DoFn("select kunde from person where id = $pers"),1+4,"Ticket");
	return undef unless defined $tick;
	$tick = "NULL" if $tick eq "-";

	log_update("nic","person",$pers,"nic",$nic,undef,"ticket",undef,
		DoFn("select ticket from nic where nic=$nic and person=$pers"));
	Do("update nic set ticket=$tick where nic=$nic and person=$pers");
	$pers;
}
1;
