From d029b61211d488577a69ea961918421eb6313ec4 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 19 Sep 2006 11:12:33 +0000 Subject: [PATCH] Include database title and link to raw ZeeRex XML. --- web/htdocs/details/found.mc | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/web/htdocs/details/found.mc b/web/htdocs/details/found.mc index 677bb68..a358498 100644 --- a/web/htdocs/details/found.mc +++ b/web/htdocs/details/found.mc @@ -1,4 +1,4 @@ -%# $Id: found.mc,v 1.3 2006-09-18 19:26:37 mike Exp $ +%# $Id: found.mc,v 1.4 2006-09-19 11:12:33 mike Exp $ <%once> use XML::LibXML; use XML::LibXML::XPathContext; @@ -64,10 +64,12 @@ if ($last < $n) { + + % foreach my $i ($first .. $last) { <%perl> @@ -77,6 +79,7 @@ my $doc = $parser->parse_string($xml); my $root = $doc->getDocumentElement(); my $xc = XML::LibXML::XPathContext->new($root); $xc->registerNs(e => 'http://explain.z3950.org/dtd/2.0/'); +my $title = $xc->find("e:databaseInfo/e:title"); my $host = $xc->find("e:serverInfo/e:host"); my $port = $xc->find("e:serverInfo/e:port"); my $db = $xc->find("e:serverInfo/e:database"); @@ -86,10 +89,12 @@ my $id = $xc->find("concat(e:serverInfo/e:host, ':', + + %}
#Title Host Port DB
<% $i %><% $title %> <% $host %> <% $port %> <% $db %> ">[Check]">[Raw]
-- 1.7.10.4