|
<%
for $top (@{$ASP->{stack}}, '', { name=> EXAMPLES, file => 'eg/index'}) {
unless($top) {
%>
| <%
next;
}
my $file;
if($top->{file}) {
$file = $top->{file};
} else {
($file) = grep($top->{name} eq $FILES{$_}, keys %FILES);
}
$file = "$file.html";
next unless (-e $file);
%>
| ><%=$top->{name}%> |
<%
}
%>
|
|
<%
my @stack;
my @order;
push(@stack, $data);
while(@stack) {
my $data = shift @stack;
unshift(@stack, @{$data->{stack}});
push(@order, $data);
}
print pod2html($data->{body}, $data->{name}, $data->{level});
my @links;
$data = shift @order;
if(@order > 2) {
my $last_level = $order[0]->{level};
for $data (@order) {
if($last_level != $data->{level}) {
push(@links, '');
$last_level = $data->{level};
}
push(@links, "URLEncode($data->{name}).">$data->{name}");
}
%>
|
<%
for($i=0; $i<@links; $i++) {
if($i == (int((@links+1) / 2))) {
print " | ";
}
print $links[$i] . "
";
}
%>
|
<%
}
for $data (@order) {
%>
URLEncode($data->{name})%>>
<%=pod2html($data->{body}, $data->{name}, $data->{level})%>
<%
}
%>
|
