##
## A nav bar for sub diretories
## comes from http://www.engelschall.com/sw/wml/COM/tmpl/subnavbar.wml
##

#use wml::des::navbar
#use wml::des::imgdot

<define-tag snb endtag=required>

<navbar:define name=snb urlbase="$(SNB_ROOT)" txtcol_normal="#ffffff" txtcol_select="#000000">

<navbar:header>
<table cellspacing=0 cellpadding=0 border=0>
<tr>
<td>
&nbsp;
&nbsp;
</td>
<td>

<table bgcolor="#666699" cellspacing=0 cellpadding=0 border=0>
%%TOPBAR%%
<tr>
<td>&nbsp;&nbsp;</td>
</navbar:header>

<navbar:prolog>
<td><font face="Arial,Helvetica">&nbsp;&nbsp;
</navbar:prolog>
<navbar:prolog type=S>
<td bgcolor="#ccccff">&nbsp;&nbsp;<font face="Arial,Helvetica"><b>
</navbar:prolog>

%body

<navbar:epilog>
 </font>&nbsp;&nbsp;</td>
</navbar:epilog>
<navbar:epilog type=S>
 </b></font>&nbsp;&nbsp;</td>
</navbar:epilog>

<navbar:footer>
<td>&nbsp;&nbsp;</td>
</tr>
</table>

</td>
</tr>
</table>
</navbar:footer>
<navbar:filter>
    my ($mcode, $CFG, $select) = @_;
    my (@B, $I);

    @B = @{$CFG->{BUTTON}};
    $I = '<tr><td></td>';
    foreach $b (@B) {
        if ($b->{ID} eq $select) {
            $I .= '<td bgcolor="#000000"><<LOC_IMGDOT>></td>';
        }
        else {
            $I .= '<td></td>';
        }
    }
    $I .= '<td></td></tr>';
    $mcode =~ s|%%TOPBAR%%|$I|sg;
    return $mcode;
</navbar:filter>
</navbar:define>

#   imgdot is programmed with ePerl and
#   we cannot nest ePerl blocks
..LOC_IMGDOT>>
<suck><imgdot width=1 height=1><suck>
<<..

<navbar:render name=snb select="$(area)">
<imgdot width=550 height=1 color="#000000"><br>

</define-tag>

<define-tag snb_button>
<navbar:button %attributes>
</define-tag>