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

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

	my $queue = edit_queues(1,$kn);
	return undef unless defined $queue;

	my $ar = DoFn("select qa.area from queue_areas as qa,ticket where ticket.area = qa.area and qa.queue = $queue");

	log_update("ticket","id",$tid,undef,"queue",undef,
		DoFn("select queue.name from ticket,queue where queue.id=ticket.queue and ticket.id=$tid"));
	Do("update ticket set area=NULL where id=$tid") if $ar == 0;
	Do("update ticket set queue=$queue where id=$tid");
}
1;
