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

sub delete_queue($) {
	my($id) = @_;

	log_update("queue","id",$id,undef,"-");
	my @ar = ($id);
	DoT("select name from queue_areas where queue = $id", sub {
		my($area) = @{$_[0]};
		push(@ar,$area);
	});
	Do("update ticket set queue=NULL where queue=".join(" or queue=",@ar));
	Do("delete from queue_areas where queue=$id");
	Do("delete from queue_acl where queue=$id");
	Do("delete from queue where id=$id");
	1;
}
1;
