[$ sub menuitem $] [* my ($url, $txt, $state, $tablebg, $ndx) = @_ ; *]
 
[+ $r -> gettext ($txt) +]
[$ 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