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

sub delete_ktarif($;$) {
	my($tari,$kn) = @_;

	my($id,$name,$dienst) = DoFn("select tarifkunde.kunde,tarifname.name,tarifkunde.dienst from tarifkunde,tarifname where tarifkunde.id=$tari and tarifkunde.tarifname=tarifname.id");
	$dienst = name_dienst($dienst);

	log_update("tarifkunde","kunde",$id,undef,"id","name","dienst","-",undef,$tari,$name,$dienst);
	if($id > 0) {
		log_update("kunde","id",$id,undef,"tarifkunde","name","dienst","-",undef,$tari,$name,$dienst);
		Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
	}
	Do("update domainkunde set ktarif = NULL where ktarif=$tari");
	Do("delete from nextrech where tarifkunde=$tari");
	DoSelect {
		my($ha,$se)=@_;
		Do("delete from acct where `hash`=$ha and seq=$se");
	} "select `hash`,seq from acctassoc where tarifkunde=$tari";
	Do("delete from acctassoc where tarifkunde=$tari");
	Do("delete from tarifkunde where id=$tari");
}
1;
