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

sub valid_domreg($;$$) {
	my($id,$flag,$kn) = @_;
	$flag = 0 unless $flag;

	return problem $kn,"ID '$id' ist nicht numerisch!\n" unless $id =~ /^\d+$/;
	return problem $kn,"domreg '$id' gibt es nicht."
		unless DoFn("select count(*) from domreg where id=$id");

	$id;
}
1;
