[$ 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) ;
}
-]
![]([+ $r -> {imageuri} +]linie-nav.gif) |
[$ endif $]
[$endforeach $]
[$ endsub $]
[-
$r = shift ;
$app = $r -> app ;
-]
![]([+ $r -> {imageuri} +]h_content.gif)
|
[#
|
#]
[- menu ($r -> {menu} , 0, 1) -]
[#
|
#]
![]([+ $r -> {imageuri} +]h_current-v.gif)
|
[#
|
#]
![]([+ $r -> {imageuri} +]linie-nav.gif) |
[- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-19-.htm', 'Stable 2.2.0', 0, 1) -]
![]([+ $r -> {imageuri} +]linie-nav.gif) |
[#
[- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-18-.htm', 'Beta 2.1b1', 0, 1) -]
![]([+ $r -> {imageuri} +]linie-nav.gif) |
#]
[- Execute ('paypal.epl') -] |
[$ if $epreq -> param -> language eq 'de' $]
Unterstützen Sie Embperl! Mehr...
|
[$else$]
Support the development of Embperl! More...
|
[$endif$]
|