#! /usr/bin/wml <: use strict; :> <: use warnings; :> #use "perl-globals.wmi" #use "links.wmi" #use "versions.wmi" #use "sidenav.wmi"
<: # recursively search menu structure to see if it contains a given page sub containsSub($$); sub containsSub($$) { my ($elements, $page) = @_; for my $ele (@{$elements}) { if (containsSub($ele->{'subelements'},$page)){ return 1; } elsif ($page eq $ele->{'url'}) { return 1; } } return 0; } # generate navigation menu sub printNavMenu($$$); sub printNavMenu($$$) { my ($navmenu, $page, $lang) = @_; print ''."\n"; } my $lang = "$(LANG)"; use Cwd; use Cwd 'abs_path'; use File::Spec; # get document path from site root my $path = File::Spec->abs2rel(getcwd(),abs_path("$(DOCROOT)")); my $page = $WML_SRC_BASENAME; printNavMenu($sidenav, $path.'/'.$page, $lang); :>