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

use Dbase::Help qw(DoFn);
use Loader qw(valid_kunde);

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

	DoSelect {
		my($idl) = @_;
		$err++ unless valid_kunde($idl,$flag,$kn);
	} "select id from kunde";	

	$err ? undef : 1;
}

1;
