use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn isotime DoTime);
use Loader qw(select_date log_update);

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

	my $datum = select_date( 256, 'Letzte Nachricht', undef, qw(- jetzt) );
	return unless defined $datum;
	$datum = DoTime if $datum eq "-";
	
	log_update("ticket","id",$tid,undef,"d_told",undef,
		scalar isotime DoFn("select d_told from ticket where id=$tid"));
	Do("update ticket set d_told=$datum where id=$tid");
}
1;
