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_acted($;$) {
	my($tid,$kn) = @_;

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