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_ktarif_datum($;$) {
	my($tari,$kn) = @_;
	my $datum;
	my $done;
	my($id,$obeginn,$oende) = DoFn("select kunde,beginn,ende from tarifkunde where id=$tari");

	$datum = select_date( 256, 'Startdatum', undef, qw(= jetzt) );
	if(defined $datum) {
		$datum = DoTime if $datum eq "=";

		log_update("tarifkunde","id",$tari,undef,"beginn",undef,scalar isotime $obeginn);
		Do("update tarifkunde set beginn=$datum where id=$tari");
		Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id") if $id > 0;
		$done += 2;
	}

	$datum = select_date(
		16 | 256, 'Enddatum', undef,
		'=' => 'jetzt',
		0   => 'Enddatum löschen'
	);
	if(defined $datum) {
		$datum = DoTime if $datum eq "=";

		log_update("tarifkunde","id",$tari,undef,"ende",undef, scalar isotime $oende);
		$datum = "NULL" if $datum == 0;
		Do("update tarifkunde set ende=$datum where id=$tari");
		Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id") if $id > 0;
		$done++;
	}
	$done;
}
1;
