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

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

	my $prio = select_descr("tickets",1+4,"","Status","ticket,!hide");
	return undef unless defined $prio;

	log_update("ticket","id",$tid,undef,"status",undef,
		get_descr("tickets",DoFn("select status from ticket where id=$tid"),1));
	Do("update ticket set status=$prio where id=$tid");
	return $prio;
}
1;
