projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
<h2> uses database title rather than ID.
[irspy-moved-to-github.git]
/
web
/
htdocs
/
details
/
full.mc
diff --git
a/web/htdocs/details/full.mc
b/web/htdocs/details/full.mc
index
f1d7d73
..
49690a7
100644
(file)
--- a/
web/htdocs/details/full.mc
+++ b/
web/htdocs/details/full.mc
@@
-1,4
+1,4
@@
-%# $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>
<%args>
$id
</%args>
@@
-20,6
+20,7
@@
if ($n == 0) {
my $rec = $rs->record(0);
my $xc = irspy_xpath_context($rec);
my @fields = (
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" ],
[ Protocol => "e:serverInfo/\@protocol" ],
[ Host => "e:serverInfo/e:host" ],
[ Port => "e:serverInfo/e:port" ],
@@
-50,7
+51,7
@@
if ($n == 0) {
[ "Explain" => sub { "### CategoryList, TargetInfo, DatabaseInfo, RecordSyntaxInfo, AttributeSetInfo, AttributeDetails" } ],
);
</%perl>
[ "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 class="fullrecord" border="1" cellspacing="0" cellpadding="5" width="100%">
<%perl>
foreach my $ref (@fields) {