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

sub set_ticket_seq_persstr($$;$) {
	my($tid,$seq,$kn) = @_;
	my($opers,$omail) = DoFn("select person,email from ticketid where ticket=$tid and seq=$seq");
	$opers = kkpersinfo($opers) if defined $opers;

	my $pers = line_in "Text: "; return undef if $pers eq "";
	my $mail;
	if($pers eq "-" or $pers eq "--") {
		$pers="NULL";
		$mail="NULL";
	} else {
		$mail = qquote($pers);
		my $pp = get_person($pers);
		if($pp) {
			print "... ".mpersinfo($pp)."\n";
			$pers=$pp;
		} else {
			$pers="NULL";
		}
	}

	log_update("ticket","id",$tid,undef,"person","email",undef,def_or_minus($opers),def_or_minus($omail));
	Do("update ticketid set timestamp=timestamp, person=$pers,email=$mail where ticket=$tid and seq=$seq");
	$pers;
}
1;
