[$ sub menuitem $] [* my ($url, $txt, $state, $tablebg, $ndx) = @_ ; *] <tr> <td align="left" [$if $tablebg $]background="[+ $r -> {imageuri} +]/hintergrund-nav.gif"[$endif$]> <table width="152" border="0" cellspacing="0" cellpadding="0"> <tr> [$ if (defined($ndx)) $] <td nowrap align="left" width=[+ $ndx * 12 + 2 +]> </td> <td nowrap align="left" width=15><img src="[+ $r -> {imageuri} +]i-sub-[+ $state>1?($state>2?'on':'open'):'off' +].gif" width="11" height="11" vspace="6" hspace="5"></td> <td nowrap align="left" width=[+ 125 - $ndx * 12 +]><a href="[+ $app -> languri ($r, $url) +]"><div class="cMenu">[+ $r -> gettext ($txt) +]</div></a></td> [$else$] <td nowrap with="152" height=22> [$ if $url $]<a href="[+ $app -> languri ($r, $url) +]">[$endif$]<span class="cMenu">[+ $r -> gettext ($txt) +]</span>[$ if $url $]</a>[$endif$]</td> [$endif$] </tr> </table> </td> </tr> [$ 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) ; } -] <tr> <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td> </tr> [$ endif $] [$endforeach $] [$ endsub $] [- $r = shift ; $app = $r -> app ; -] <table width="152" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="[+ $r -> {imageuri} +]h_content.gif" width="152" height="19"></td> </tr> <tr> <td> </td> </tr> [- menu ($r -> {menu} , 0, 1) -] <tr> <td> </td> </tr> <tr> <td><img src="[+ $r -> {imageuri} +]h_current-v.gif" width="152" height="19"></td> </tr> <tr> <td> </td> </tr> <tr> <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td> </tr> [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-19-.htm', 'Stable 2.2.0', 0, 1) -] <tr> <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td> </tr> [# [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-18-.htm', 'Beta 2.1b1', 0, 1) -] <tr> <td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td> </tr> #] </table>