[* no warnings "uninitialized" ; *]
[$ 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) -]
[#
|
#]
|
[#
|
#]
|
[- $linkuri = $r -> {baseuri} . ($epreq -> param -> language eq 'de'?'pod/doc/Embperl.-page-12-.htm':'pod/doc/Embperl.-page-18-.htm') -]
[- menuitem ($linkuri, 'Stable 3.0.0', 0, 1) -]
|
[- menuitem ($linkuri, 'Beta 3.0.0-rc.2', 0, 1) -]
|
[#
[- Execute ('paypal.epl') -] |
[$ if $epreq -> param -> language eq 'de' $]
Unterstützen Sie Embperl! Mehr...
|
[$else$]
Support the development of Embperl! More...
|
[$endif$]
#]
[#
#]
|
|
|
> Deutsch
|
|
> English
|