use utf8;
use warnings; no warnings "redefine";
use strict;

use Dbase::Help qw(DoSelect);
use Loader qw(valid_person);

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

	DoSelect {
		my($ida) = @_;
		$err++ unless valid_person($ida,$flag,$kn);
	} "select id from person where kunde=$id";

	$err ? undef : $id;
}

1;
