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

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

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

	log_update("ipkunde","id",$idi,undef,"nic",undef,
		get_descr("nic",DoFn("select nic from ipkunde where id=$idi"),1));
	Do("update ipkunde set nic=$nic where id=$idi");
	$nic;
}
1;
