use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(log_update select_person);
use Dbase::Help qw(DoFn Do);
use Dbase::Globals qw(get_descr);
use Fehler qw(warnung);

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

	my $sel = select_person($id);
	return undef unless defined $sel;

	my($pers,$dien,$prio) = DoFn("select person,dienst,dringend from kundemail where $sel");
	log_update("kundemail","kunde",$id,undef,"person","dienst","dringend","-",undef,$pers,get_descr(dienst=>$dien),$prio);
	Do("delete from kundemail where $sel");
	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");

	warnung('Das war die einzige Person unter diesem Dienst bei diesem Kunden.')
	  unless DoFn("SELECT COUNT(*) FROM kundemail WHERE kunde = $id AND dienst = $dien");

	$pers;
}

1;
