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

sub set_person_ueber($;$) {
	my($pers,$kn) = @_; 

	my($kk,$opp) = DoFn("select kunde,mperson from person where id = $pers");
	my $pp = edit_personen($kk,1+4,$kn);
	return undef unless defined($pp);

	if($pp eq "-") {
		return 0 if not defined $opp;
		$pp = "NULL";
	} else {
		return 0 if defined $opp and $pp == $opp;
	}

	log_update("person","id",$pers,undef,"mperson","mperson",undef,
		$opp,kkpersinfo($opp,2));
	Do("update person set mperson = $pp where id = $pers");
}
1;
