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

sub delete_acctassoc($$;$) {
	my($hash,$seq,$kn) = @_;

	unless(DoFn("select count(*) from acctassoc where `hash`=$hash and seq=$seq")) {
		print "...nicht vorhanden.\n";
		return undef;
	}
	log_update("acct","hash",$hash,"seq",$seq,undef,"acctassoc","-");
	Do("delete from acctassoc where `hash`=$hash and seq=$seq");
	return ($hash,$seq);
}
1;
