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

sub set_mailrules_kunde($;$) {
	my ( $id, $kn ) = @_;

	my $kk = edit_kunden( 1, $kn );
	return unless defined $kk && $kk != $id;

	log_update( mailrules => kunde =>, $id, undef, kunde => '-', undef, $kk );
	log_update( mailrules => kunde => $kk, undef, kunde => '*', undef, $id );
	log_update( kunde => id => $id, undef, mailrules => '-' );
	log_update( kunde => id => $kk, undef, mailrules => '*' );
	Do("UPDATE mailrules SET kunde=$kk WHERE kunde = $id");
	Do(<<_);
	UPDATE kunde SET geaendert = UNIX_TIMESTAMP(NOW()) WHERE id IN ($id,$kk)
_
}

1;
