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

sub set_domreg_nic($;$) {
	my($id,$kn) = @_;

	my $nic = select_descr("nic",1|4,"","","!hide");
	return undef unless defined $nic;
	$nic="NULL" if $nic eq "-";

	log_update("domreg","id",$id,undef,"nic");
	Do("update domreg set nic=$nic where id=$id");
	1;
}
1;
