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

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

	return problem "'$id' ist keine Zahl"
		unless $id =~ /^\d+$/;
	return problem "Registrar-Datensatz '$id' gibt es nicht" 
		unless DoFn("select count(*) from registrar where id=$id");

	$id;
}
1;
