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

sub set_perso_datum($;$) {
	my($id,$kn) = @_;
	my $datum;
	my $done;	
	my($obeginn,$oende) = DoFn("select beginn,ende from perso where person=$id");
	$oende=0 if not defined $oende;
	$datum = select_date( 256, 'Startdatum', undef, qw(= jetzt) );
	if(defined $datum) {
		$datum = DoTime if $datum eq "=";
		
		log_update("kunde","id",$id,undef,"beginn",undef,scalar isotime $obeginn);
		Do("update perso set beginn=$datum where person=$id");
		$done += 2;
	}
	$datum = select_date(
		16 | 256 | 1024, 'Enddatum', undef,
		'=' => 'jetzt',
		0   => 'Enddatum löschen'
	);
	if(defined $datum) {
		$datum = DoTime if $datum eq "=";
		
		if($datum == 0) {
			$datum = "NULL";
		}
		log_update("kunde","id",$id,undef,"ende",undef,scalar isotime $oende);

		Do("update perso set ende=$datum where person=$id");
		$done++;
	}
	$done;
}

1;
