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

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

	return problem $kn,'Es wurde keine Personen-ID übergeben.' unless defined $id;
	return problem $kn,"ID '$id' ist nicht numerisch!\n" unless $id =~ /^\d+$/;
	return problem $kn,"Person '$id' gibt es nicht."
		unless DoFn("select count(*) from person where id = $id");

	$err ? undef : $id;
}

1;
