sub validateQuery {
    my $self = shift;
    my $redir = shift || 1;
    my $q = $self->query();
    foreach( @{$self->param('Felder')} ){
#print STDERR Data::Dumper::Dumper($_);
        unless( defined($q->param("RES_".$_)), $q->param("RES_".$_) ne "" ){
#print STDERR Data::Dumper::Dumper("RES_".$_);
            if( $redir ){
                # redirect to Form with ErrorMsg
                my $new_url = $q->url(-relative=>1,) . '?rm=showForm;error=1';
                # alle FormularFelder zusammenfügen, zwecks übergabe an Script
                my @daten = @{$self->param('SystemFormFields')};
                push @daten, @{$self->param('Felder')};
                push @daten, @{$self->param('weitereFelder')};
                foreach my $feld ( @daten ){
#print STDERR Data::Dumper::Dumper($feld);
                    $new_url .= ";".$feld."=".$q->param("RES_".$feld);
                }
#print STDERR "bin da\n";
                $self->redir($new_url);
#print STDERR "bin vorbei\n";
                last;
                exit(0);
            }else{
                # return fehlerhaftes Feld
                return $q->param("Bitte überprüfen Sie Ihre Eingabe im Feld: $_");
                last;
            }
        }
    }
    return 'validateQuery';
} # /validateQuery