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

sub set_ticket_ticket($$;$) {
	my($tid,$kn,$id) = @_;

	$id=DoFn("select kunde from ticket where ticket=$tid") if not $id;
    my $tick = edit_tickets($id,1+4,$kn);
	return undef unless defined $tick;
	$tick = $id if $tick eq "-";

	log_update("ticket","id",$tid,undef,"ticket",undef,
		DoFn("select ticket from ticket where id=$tid"));
	Do("update ticket set ticket=$tick where id=$tid");
}
1;
