[$ sub menuitem $]
[*
my ($url, $txt, $state, $tablebg, $ndx) = @_ ;
*]
{imageuri} +]/hintergrund-nav.gif"[$endif$]>
|
[$ endsub $]
[$ sub menu $]
[*
my ($menu, $ndx, $top) = @_ ;
local $^W = 0 ;
*]
[$ foreach my $item (@{$menu}) $]
[$if $item -> {path} $]
[-
if ( $r -> {menuitems}[$ndx] eq $item)
{
menuitem (!$item -> {url}?$r -> {baseuri} . $item -> {relurl}:$item -> {url}, $item -> {menu}, $r -> {menuitems}[$ndx+1]?2:3, $top, $ndx) ;
menu ($item -> {sub}, $ndx + 1, 0) if ($item -> {sub}) ;
}
else
{
menuitem (!$item -> {url}?$r -> {baseuri} . $item -> {relurl}:$item -> {url}, $item -> {menu}, 0, $top, $ndx) ;
}
-]
|
[$ endif $]
[$endforeach $]
[$ endsub $]
[-
$r = shift ;
$app = $r -> app ;
-]
|
|
[- menu ($r -> {menu} , 0, 1) -]
|
|
|
|
Stable
1.3.4 |
|
|
|
Beta 2.0b8 |
|