use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Dbase::Globals qw(mpersinfo kkpersinfo);
use Loader qw(log_update edit_personen);

sub set_ticket_person($;$$) {
	my($tid,$kn,$pers) = @_;
	my ($opers,$kid) = DoFn("select bearbeiter,kunde from ticket where id=$tid");

	unless(defined $pers) {
		$pers = edit_personen($kid, 1+4, $kn);
		return undef unless defined $pers;
	}
	$pers = "NULL" if $pers eq "-";

	log_update("ticket","id",$tid,undef,"bearbeiter","bearbeiter",undef,$opers,kkpersinfo($opers,2));
	Do("update ticket set bearbeiter=$pers where id=$tid");
	$pers;
}
1;
