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

sub delete_mailrules($) {
	my ($id) = @_;
	DoTrans {
		log_update( mailrules => kunde => $id, undef, '-' );
		Do("DELETE FROM mailrules WHERE kunde = $id");
		Do("UPDATE kunde SET geaendert = UNIX_TIMESTAMP(NOW()) WHERE id = $id");
	}
}

1;
