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

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