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

use Dbase::Help qw(DoSelect);
use Fehler qw(problem warnung);
use Loader qw(valid_domain);

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

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

	$err ? undef : $id;
}

1;
