>
<%
for my $top (@{$ASP->{stack}}, 'hr', { name=> 'EXAMPLES', file => 'eg/index'}) {
if($top eq 'hr') {
%>>
| <%
next;
} elsif(! $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);
my $here = ($basename eq $file) ? 1 : 0;
my $link;
if($here) {
$link = "$top->{name}";
} else {
$link = "$top->{name}";
}
# my $nav_row_color = ++$nav_row_counter % 2 ? '#e0f0ff' : 'white';
my $nav_row_color = 'white';
%>
| >><%=
$here ? $Server->HTMLEncode("%") : " "
%> |
><%=
$link
%> |
<%
}
%>
|
|
<% # BODY OF DOC %>
<%
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 > 1) {
# if any change in levels, then we get some headers going
my $last_level;
if(grep($order[$_]->{level} != $order[$_ + 1]->{level}, 0..($#order-1))) {
$last_level = 100; # really low so first will be a header
} else {
$last_level = $order[0]->{level};
}
for $data (@order) {
warn "$last_level, $data->{level} $data->{name}\n";
if($last_level != $data->{level}) {
if($last_level > $data->{level}) {
warn "pushing blank\n";
push(@links, '');
}
$last_level = $data->{level};
}
push(@links, "URLEncode($data->{unique}).">$data->{name}");
}
%>
<%
my $half = int((@links + 1) / 2);
my $index;
my $hilite_first;
unless($links[0]) {
$hilite_first = 1;
shift @links;
}
for(my $i=0; $i<$half; $i++) {
%>
<% for $index ($i, $i+$half) {
if(! defined $links[$index] && $index != 0) {
print "| | ";
next;
}
my $bgcolor = '';
if($index == 0) {
# unless($links[$index+1]) {
# $bgcolor = $NavColor;
# }
if($hilite_first) {
$bgcolor = $NavColor;
}
} elsif(! $links[$index-1]) {
$bgcolor = $NavColor;
}
%>
>
<%
if(($index == 0 and $hilite_first) || ! $links[$index-1]) {
$links[$index] =~ s|\>(.*?)\<|>$1<|i;
print "$links[$index]";
} else {
print $links[$index];
}
%>
|
<% } %>
<%
}
%>
|
<%
}
for $data (@order) {
%>
URLEncode($data->{unique})%>>
<%=pod2html($data->{body}, $data->{name}, $data->{level})%>
<%
}
%>
|
<%
# EXTRA SECTION NEXT TO BODY ?
my $basename = basename($0);
$basename =~ s/\.\w+$//isg;
my $extra_include = $basename.'_extra.inc';
warn $extra_include;
if($Server->MapInclude($extra_include)) {
my $data = $Response->TrapInclude($extra_include);
$$data =~ s/(]*>)/$1/isg;
%>
<%= $$data %>
<%
} else {
print " ";
}
%>
|
