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_notiz($;$) {
	my($tari,$kn) = @_;
	my($id,$odatum) = DoFn("select kunde,notiz from tarifkunde where id=$tari");

	my $datum = select_date(256,"Datum",undef,qw(- jetzt));
	return undef unless defined $datum;
	$datum = DoTime if $datum eq "-";

	log_update("tarifkunde","id",$tari,undef,"notiz",undef, scalar isotime $odatum);
	Do("update tarifkunde set notiz=$datum where id=$tari and notiz < $datum");

	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
}
1;
