sub delete_ipregion($;$) {
	my($idi,$kn) = @_;

	Do("update ipkunde set ipregion = NULL where ipregion = $idi");
	Do("delete from ipregion where id = $idi");
}
1;
