use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(select_descr domain_check log_update);
use Dbase::Help qw(DoFn Do);
use Dbase::Globals qw(get_descr);

sub set_domain_status($;$) {
	my($idi,$kn) = @_;
	my($id,$ostat) = DoFn("select kunde,status from domainkunde where id=$idi");

	my $status = select_descr("domainstatus",0,"","Status","!hide");
	return undef unless defined $status;

	log_update("domainkunde","id",$idi,undef,"status",undef,
		get_descr("domainstatus",$ostat,1));
	Do("update domainkunde set status=$status where id=$idi");

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