use utf8;
use strict;
use warnings; no warnings qw(redefine);
use Dbase::Help qw(DoFn);
use Fehler qw(problem warnung);
use Loader qw(strip_kn);

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

	return problem $kn,"ID '$id' ist nicht numerisch!\n" unless $id =~ /^\d+$/;

	my($von,$mail) = DoFn("select von,erkannt from ${typ}zustand where id=$id");
	return problem $kn,"Zustand '$typ/$id' gibt es nicht."
		unless defined $von;

	$kn = strip_kn($kn)."${typ}zustand_$von/$mail";

	unless($flag & 1) {
	}
	if($flag & 4) {
	}

	$err ? undef : $id;
}
1;
