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

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

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

	my $ksel;
	if($id) {
		$ksel="kunde=$id";
	} else {
		$ksel="(kunde=0 or kunde IS NULL)";
		$id=0;
	}
	log_update("tarifacct","kunde",$id,undef,"id","name","dienst","-",undef,$tid,$name,$dien);
	if($id > 0) {
		log_update("kunde","id",$id,undef,"tarifacct","name","dienst","-",undef,$tid,$name,$dien);
		Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
	}
	Do("delete from tarifacct where id=$tid and $ksel");
	return undef;
}
1;
