X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=a152a74e35ca3f2bd50d645c1a964ef3f21fa5db;hb=22758a77f0c1cb3f41357468be56cd6b9207baff;hp=f1d7d7320e83de6ac9da262b1b1420d1903f6f33;hpb=2200ad51872b1d3136ed0db4e26aca42aac7e746;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index f1d7d73..a152a74 100644 --- 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.11 2006-11-06 17:34:58 mike Exp $ <%args> $id %args> @@ -20,6 +20,7 @@ if ($n == 0) { 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" ], @@ -42,22 +43,23 @@ if ($n == 0) { [ "Implementation ID" => "i:status/i:implementationId" ], [ "Implementation Name" => "i:status/i:implementationName" ], [ "Implementation Version" => "i:status/i:implementationVersion" ], - [ "Reliability" => sub { "### 97%" } ], - [ "Services" => sub { "### search, present, delSet, concurrentOperations, namedResultSets" } ], - [ "Bib-1 Use attributes" => sub { "### 4-5, 7-8, 12, 21, 31, 54, 58, 63, 1003-1005, 1009, 1011-1012, 1016, 1031" } ], - [ "Operators" => sub { "### and, or, not" } ], - [ "Record syntaxes" => sub { "### SUTRS, USmarc, Danmarc" } ], + [ "Reliability" => \&calc_reliability, $xc ], + [ "Services" => sub { "### IRSpy does not yet check for search, present, delSet, concurrentOperations, namedResultSets, etc. and store the information is a usable form." } ], + [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], + [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], + [ "Operators" => \&calc_boolean, $xc ], + [ "Record syntaxes" => \&calc_recsyn, $xc ], [ "Explain" => sub { "### CategoryList, TargetInfo, DatabaseInfo, RecordSyntaxInfo, AttributeSetInfo, AttributeDetails" } ], ); %perl> -