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

sub add_nicdata(;$) {
	my($kn) = @_;
	my $line = '-';

	my $nic = select_descr("nic",1,"","nic","!hide");
	return undef unless defined $nic;

	my $id = Do("insert into nicdata set nic=$nic");
	return undef unless $id;
	log_update("nicdata","id",$id,undef,"nic","*",undef,$nic);

	edit_nicdata($nic,$kn);
}
1;
