-%# $Id: full.mc,v 1.3 2006-10-27 00:46:38 mike Exp $
+%# $Id: full.mc,v 1.6 2006-11-06 11:41:03 mike Exp $
<%args>
$id
</%args>
my $rec = $rs->record(0);
my $xc = irspy_xpath_context($rec);
my @fields = (
+ [ "Last Checked" => "i:status/i:probe[last()]" ],
[ Protocol => "e:serverInfo/\@protocol" ],
[ Host => "e:serverInfo/e:host" ],
[ Port => "e:serverInfo/e:port" ],
[ "Explain" => sub { "### CategoryList, TargetInfo, DatabaseInfo, RecordSyntaxInfo, AttributeSetInfo, AttributeDetails" } ],
);
</%perl>
- <h2><% xml_encode($id) %></h2>
+ <h2><% xml_encode($xc->find("e:databaseInfo/e:title")) %></h2>
<table class="fullrecord" border="1" cellspacing="0" cellpadding="5" width="100%">
<%perl>
foreach my $ref (@fields) {
% }
% }
</table>
- <p>
- <a href="<% xml_encode("/check.html?id=" . uri_escape($id))
- %>">Test this target</a>
- <br/>
- <a href="<% xml_encode("/edit.html?id=" . uri_escape($id))
- %>">Edit this target's information</a>
- <br/>
- <a href="<% xml_encode("/raw.html?id=" . uri_escape($id))
- %>">Raw XML record</a>
- </p>
% }