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 def_or_minus);

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

	content ( my $ddata = line_in "Daten RT   : " ) or return;
	
	log_update("ticketid","id",$tid,"seq",$seq,undef,"data",undef,
		def_or_minus(DoFn("select data from ticketid where ticket=$tid and seq=$seq")));
	Do("update ticketid set timestamp=timestamp, data=${\qquote $ddata,1} where ticket=$tid and seq=$seq");
}
1;
