From 3af6b32f5eeadb0ce5a2835550ea60195766cdef Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Mon, 18 Sep 2006 19:26:37 +0000 Subject: [PATCH] Links to check individual targets --- 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 1a41f91..677bb68 100644 --- a/web/htdocs/details/found.mc +++ b/web/htdocs/details/found.mc @@ -1,4 +1,4 @@ -%# $Id: found.mc,v 1.2 2006-09-18 12:22:07 mike Exp $ +%# $Id: found.mc,v 1.3 2006-09-18 19:26:37 mike Exp $ <%once> use XML::LibXML; use XML::LibXML::XPathContext; @@ -67,6 +67,7 @@ if ($last < $n) { Host Port DB + % foreach my $i ($first .. $last) { <%perl> @@ -79,12 +80,16 @@ $xc->registerNs(e => 'http://explain.z3950.org/dtd/2.0/'); my $host = $xc->find("e:serverInfo/e:host"); my $port = $xc->find("e:serverInfo/e:port"); my $db = $xc->find("e:serverInfo/e:database"); +my $id = $xc->find("concat(e:serverInfo/e:host, ':', + e:serverInfo/e:port, '/', + e:serverInfo/e:database)"); <% $i %> <% $host %> <% $port %> <% $db %> + ">[Check] %} -- 1.7.10.4