use utf8;
use strict;
use warnings; no warnings qw(redefine);
use Dbase::Help qw(DoFn);
use Fehler qw(problem warnung);
use Loader qw(strip_kn);

sub valid_nic($;$$) {
	my($nic,$flag,$kn) = @_;
	$flag = 0 unless $flag;

	return $nic if $nic eq "-" and $flag&1;
	return problem $kn,"ID '$nic' ist nicht numerisch!\n" unless $nic =~ /^\d+$/;
	return problem $kn,"nic '$nic' gibt es nicht."
		unless DoFn("select count(*) from nicdata where nic=$nic");

	$nic;
}
1;
