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

sub add_registrar($;$) {
	my($nic,$kn) = @_;
	my $line = '-';

	return undef unless valid_nic($nic);

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

	edit_registrar($id,$kn);
}
1;
