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

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

	return unless valid_ip($id);
	
	$what = "owner" unless $what;
	my $pers = DoFn("select $what from ipkunde where id = $id");
	unless($pers) {
		$pers = set_ipnr_person($id,$kn,$what);
		return undef unless $pers;
	}
	edit_person($pers,undef,$kn);
}
1;
