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

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

	if($flag & 1) {
		pruefe_kunde_personen($kunde,$flag);
	}
	1;
}

1;
