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

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

	my $zeit = select_date(2,"budgetierte Zeit",undef,qw(- keine));
	return unless defined $zeit;
	$zeit = "NULL" if $zeit eq "-";

	log_update("ticket","id",$tid,undef,"zeit",undef,
		iso_intervall(DoFn("select zeit from ticket where id=$tid"),4+8));
	Do("update ticket set zeit=$zeit where id=$tid");
}
1;
