sub getTemplate {
# -- usage
# my $template = getTemplate('TemplateName', $ldataObj, [$associate]);
    my $templateName = shift;
    my $ldata = shift;
    my $associate = shift;
    #print STDERR $ldata->{data}->{templateDir} || 'error';
    my $filename = undef;
    my %params = ();
    if( -e "$ldata->{data}->{templateDir}/$templateName.tmpl" ) {
        $filename = "$ldata->{data}->{templateDir}/$templateName";
    }elsif( -e "$ldata->{data}->{templateDir}/nofile.tmpl" ) {
        $filename = "$ldata->{data}->{templateDir}/nofile.tmpl";
        $params{'errorcode'} = 1;
        $params{'error'}     = 'Das angeforderte template kann nicht gefunden werden!';
    }else{
        print $cgi->header();
        print $cgi->start_html();
        print "Template für Fehlerausgabe konnte nicht geladen werden."; # backtracing!"
        print $cgi->end_html();
        exit(0);
    }
    my $zw_t = HTML::Template->new( filename => $filename, die_on_bad_params => 0, associate => 

$associate );
    while( my ($key, $val) = each %params ){
        $zw_t->param( $key => $val );
    }
    return $zw_t->output();
} # subsTemplate