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

sub set_tarif_datum($;$) {
	my($tari,$kn) = @_;

	my $datum = select_date(1|4|256|1024,"Startdatum",undef,qw(= jetzt 0 immer));
	return unless defined $datum;
	$datum = DoTime if $datum eq "=";

	log_update("tarif","id",$tari,undef,"beginn",undef,
		scalar isodate DoFn("select beginn from tarif where id=$tari"));
	Do("update tarif set beginn=$datum where id=$tari");
}
1;
