-%# $Id: full.mc,v 1.4 2006-10-31 16:18:47 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) {