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

sub delete_acct($$) {
	my($hash,$seq,$kn) = @_;
	my $id = DoFn("select kunde from acct where `hash`=$hash and seq=$seq");

	log_update("acct","kunde",$id,undef,"hash","seq","-",undef,$hash,$seq);
	Do("delete from rt_billing where `hash`=$hash and seq=$seq");
	Do("delete from acctassoc where `hash`=$hash and seq=$seq");
	Do("delete from acct where `hash`=$hash and seq=$seq");
	return ($hash,$seq);
}
1;
