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

sub ticket_delete($) {
	my($tid) = @_;

	log_update("ticket","id",$tid,undef,"-");
	Do("update ticket set ticket=id where ticket=$tid");
	Do("delete from ticketid where ticket = $tid");
	Do("delete from ticketadr where ticket = $tid");
	Do("delete from ticketlast where ticket = $tid");
	Do("delete from ticketabo where ticket = $tid");
	Do("update nic set ticket=NULL where ticket = $tid");
	Do("update stunden set ticket=NULL where ticket = $tid");
	Do("update ipkunde set ticket=NULL where ticket = $tid");
	Do("update domainkunde set ticket=NULL where ticket = $tid");

	DoTrans {
		Do("update ticket set ticket=NULL where id = $tid");
		Do("delete from ticket where id = $tid");
	};
	1;
}
1;
