<!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>
