use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoSelect);
use Fehler qw(problem);
use Loader qw(valid_fnbatch);

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

	unless($flag & 1) {
	}

	DoSelect {
		my($idp) = @_;
		$err++ unless valid_fnbatch($idp,$flag,$kn);
	} "select id from fnbatch";	
	$err ? undef : $id;
}
1;
