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

	$datum = select_date( 256, 'Startdatum', undef, qw(- jetzt) );
	if(defined $datum) {
		$datum = DoTime if $datum eq "-";
		
		log_update("ticket","id",$tid,undef,"beginn",
			scalar isotime DoFn("select beginn from ticket where id=$tid"));
		Do("update ticket set beginn=$datum where id=$tid");
		$done += 2;
	}

	$done;
}
1;
