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

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

	my $okk = DoFn("select kunde from person where id=$pers");
	my $kk = edit_kunden(1,$kn);
	return undef unless defined $kk;
	return 0 if $kk == $okk;
	
	log_update("person","id",$pers,undef,"kunde",undef, $okk);
	Do("update person set kunde=$kk where id=$pers");
	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$kk or id=$okk");
	$kk;
}
1;
