sub setUndefTmplValues {
    my $template = shift;
    my @parameter_names = $template->param();
#    print STDERR Data::Dumper::Dumper( @parameter_names );
    foreach( @parameter_names ) {
        eval{ $template->param( $_ => "$_ nicht definiert" ) unless defined( $template->param($_) ); }
    }
    return 1;
} # /checkTmplForValues