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

sub set_domain_nic($;$$) {
	my($idi,$kn,$nic) = @_;

	my $onic = DoFn("select nic from domainkunde where id=$idi");
	$nic = select_descr("nic",1+4,"","Registrar","!hide") unless defined $nic;
	return undef unless defined $nic;
	if($nic eq "-") {
		$nic = "NULL";
	} else {
		return $nic if defined $onic and $nic == $onic;
	}

	log_update("domainkunde","id",$idi,undef,"nic",undef,get_descr("nic",$onic));
	Do("update domainkunde set nic=$nic where id=$idi");
	$nic;
}
1;
