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

sub set_leitung_kunde($;$) {
	my($idi,$kn) = @_;
	my($okk) = DoFn("SELECT kunde FROM leitung WHERE id=$idi")
		or return problem "Leitung #$idi nicht gefunden.";
	my $kk = edit_kunden(1,$kn);
	return undef unless defined $kk;
	return 0 if $kk == $okk;
	log_update('leitung','id',$idi,undef,'kunde',undef,$okk);
	Do("UPDATE leitung SET kunde=$kk WHERE id=$idi");
	Do("UPDATE kunde SET geaendert=UNIX_TIMESTAMP(NOW()) WHERE id=$kk OR id=$okk");
	$kk;
}

1;
