my $vnav_template = [];
    push @{ $vnav_template }, main::get_template_bn('vnav_head');
    push @{ $vnav_template }, main::get_template_bn('vnav_item');
    push @{ $vnav_template }, main::get_template_bn('vnav_foot');
    my $hnav_template = [];
    push @{ $hnav_template }, main::get_template_bn('hnav_head');
    push @{ $hnav_template }, main::get_template_bn('hnav_item');
    push @{ $hnav_template }, main::get_template_bn('hnav_foot');

sub get_template_bn {
    my $seitenname = shift;
    my $returnvalue = undef;
    { # cmd
        my $cmd = "SELECT template FROM template WHERE name='$seitenname'";
        my $sth = $dbh->prepare($cmd) || die $dbh->errstr;
        if( my $rv = $sth->execute ){
            $returnvalue = join"",@{$sth->fetchrow_arrayref()};
            $sth->finish();
        }else{
            die "Konnte \"$seitenname\" nicht aus seiten-Datenbank lesen: " . $dbh->errstr;
        }
    } # /cmd
    return $returnvalue;
} # get_Template_bn