use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Dbase::Help qw(Do DoFn);
use Dbase::Globals qw(def_or_minus content);

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

	content ( my $area = line_in "Area       : " ) or return;
	my $queue = DoFn("select queue from ticket where id=$tid");
	return undef unless $queue;

	if($area eq "-") {
		$area = "NULL";
	} else {
		$area = DoFn("select id from queue_area where name=${\qquote $area} and queue=$queue") || Do("insert into queue_area set name=${\qquote $area}, queue=$queue");
	}
	log_update("ticket","id",$tid,undef,"queue_area",undef,
		def_or_minus(DoFn("select queue_areas.name from ticket,queue_areas where ticket.id=$tid and queue_areas.id=ticket.queue_area")));
	Do("update ticket set queue_area=$area where id=$tid");
}
1;
