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_hostgroup_kunde(;$$) {
	my ( $idi, $kn ) = @_;
	my ($okk) = DoFn("SELECT kunde FROM hostgroup WHERE id=$idi")
	  or return problem("Hostgroup #$idi nicht gefunden.");
	my $kk = edit_kunden( 1, $kn );
	return undef unless defined $kk;
	return 0 if $kk == $okk;
	log_update( hostgroup => id => $idi, undef, kunde => undef, $okk );
	Do("UPDATE hostgroup SET kunde = $kk WHERE id = $idi");
	Do(<<_);
	UPDATE kunde
	   SET geaendert = UNIX_TIMESTAMP(NOW())
	WHERE  id = $kk OR id = $okk
_
	$kk;
}

1;
