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_ablauf($;$) {
	my($tari,$kn) = @_;
	my $datum;
	my $done;
	my($id,$oablauf) = DoFn("select kunde,ablauf from tarifkunde where id=$tari");

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

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