use utf8;
use strict;
use warnings; no warnings "redefine";
use Loader qw(pruefe_kunde_person);

sub pruefe_kunde_personen($;$) {
	my($kunde,$flag) = @_;
	$flag = 0 unless $flag;

	DoSelect {
		my($id) = @_;
		pruefe_kunde_person($id,$flag);
	} "select id from person where kunde = $kunde";
	1;
}
1;
