#include 'head.wml'
#use wml::std::tags
sub print_li_header {
my $page = $_[0];
my $path = $_[1];
my $name = $_[2];
my $_name;
if ($page ne $name) {
$_name =~ s/\s/_/g;
print "$name\n";
} else {
print "$name\n";
}
return;
}
<:= &print_li_header("$(page)","$(path)index.html","Overview") :>
<:= &print_li_header("$(page)","$(path)news.html","News") :>
<:= &print_li_header("$(page)","$(path)download.html","Download") :>
<:= &print_li_header("$(page)","$(path)support.html","Support") :>
<:= &print_li_header("$(page)","$(path)devel.html","Development") :>
<:= &print_li_header("$(page)","$(path)documentation.html","Documentation") :>
<:= &print_li_header("$(page)","$(path)security.html","Security advisories") :>
<:= &print_li_header("$(page)","$(path)contrib.html","Authors") :>