use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(valid_domain set_domain_person edit_person);
use Dbase::Help qw(DoFn);

sub edit_domain_person($;$$) {
	my($dom,$kn,$what) = @_;

	return unless valid_domain($dom);
	
	$what = "owner" unless $what;
	my $pers = DoFn("select $what from domainkunde where id = $dom");
	unless($pers) {
		$pers = set_domain_person($dom,$kn,$what);
		return undef unless $pers;
	}
	edit_person($pers,undef,$kn);
}
1;
