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

sub set_acct_kunde($$;$) {
	my($hash,$seq,$kn) = @_;
	my $id = DoFn("select kunde from acct where `hash`=$hash and seq=$seq");

	my $kk = edit_kunden(1,$kn);
	return undef unless defined $kk;
	return 0 if $kk == $id;
	
	log_update("acct","hash",$hash,"seq",$seq,undef,"kunde",undef,$id);
	Do("update acct set kunde=$kk where `hash`=$hash and seq=$seq");

	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id") if $id > 0;
	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$kk");
	($hash,$seq);
}
1;
