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

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

	content ( my $titel = line_in "Titel      : " ) or return;

	log_update("ticket","id",$tid,undef,"subject",undef,
		DoFn("select subject from ticket where id=$tid"));
	Do("update ticket set subject=${\qquote $titel} where id=$tid");
}
1;
