<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/strict.dtd">
<html>
<!--#include file="spacer.xps"-->
<!--#include file="docbook_tags.xps"-->
<%
my %links;
my $linkid = 0;
$t->{'ulink'}{testcode} = sub {
my $node = shift;
my $t = shift;
my $url = findvalue('@url', $node);
if (!exists $links{$url}) {
$linkid++;
$links{$url} = $linkid;
}
my $link_number = $links{$url};
$t->{pre} = "<i><a href=\"$url\">";
$t->{post} = " [$link_number]</a></i>";
return 1;
};
%>
<head>
<title><%= findvalue('/article/artheader/title/text()') %></title>
<link rel="stylesheet" href="/stylesheets/axkit.css" type="text/css" />
</head>
<!--#include file="body_print_html.xps"-->
<table width="100%">
<tr>
<td width="10"><%= spacer(10,0) %></td>
<td width="*" style="font-size: small;">
<%
# display title/TOC page
print apply_templates('/article/artheader/*');
%>
<hr>
<%
# display all pages
foreach my $section (findnodes("/article/sect1")) {
print apply_templates($section);
}
%>
<h1>List of Links</h1>
<table border="1">
<th>URL</th>
<%
for my $link (sort {$links{$a} <=> $links{$b}} keys %links) {
%>
<tr>
<td><%= "[$links{$link}] $link" %></td>
</tr>
<% } %>
</table>
<%
if (@footnotes) {
print "<hr><table cellspacing=\"0\" cellpadding=\"3\">";
print "<caption>Footnotes</caption>";
my $i = 1;
foreach my $footnote (@footnotes) {
print "<tr><td valign=\"top\"><p>$i</p></td><td valign=\"top\"><div class=\"footnote\">$footnote</div></td></tr>";
$i++;
}
print "</table><hr>";
}
%>
</td>
</tr>
</table>
</body>
</html>