use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(log_update valid_ticket ticket_get_header editor);
use Dbase::Help qw(DoFn quote DoBinary);

sub edit_ticket_seq_text ($$;$) {
	my($id,$seq,$kn) = @_;
	return unless valid_ticket($id);

	return undef if $seq == 0;
	DoBinary {
		my $data = DoFn("select inhalt from ticketid where ticket=$id and seq=$seq");

		unless(defined $data) {
			print "Text von Ticket $id:$seq nicht vorhanden, NEU.\n\n";
		}
		$data = editor($data, "Editor ".ticket_get_header($id,1)."...");
		return undef unless defined $data;
	
		log_update("ticketid","ticket",$id,"seq",$seq,undef,"inhalt");
		Do("update ticketid set inhalt = '${\quote $data}' where ticket=$id and seq=$seq");
	};
	return $seq;
}
1;
