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

sub set_domreg_person($;$$) {
	my($id,$kn,$feld) = @_;
	$feld = "techc" unless $feld;

	my $opp = DoFn("select $feld from domreg where id=$id") || 0;
	my $pp = edit_personen(1,1+4+128,$kn);
	return undef unless defined($pp);
	$pp = "NULL" if $pp eq "-";

	log_update("domreg","id",$id,undef,$feld,undef,$opp);
	Do("update domreg set $feld=$pp where id=$id");

	$pp;
}
1;
