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

sub set_ktarif_kunde($;$) {
	my($tari,$kn) = @_;
	my($id) = DoFn("select kunde from tarifkunde where id=$tari");

	my $idx = edit_kunden(1,$kn);
	return undef unless $idx;

	log_update("tarifkunde","id",$tari,undef,"kunde",undef,$id);
	Do("update tarifkunde set kunde=$idx where id=$tari");
	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id or id=$idx");
}
1;
