X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=2ce16c35522db7e708ad037dc50e3adf6e43bfdb;hb=122e4906a8789c719d33e794a9b34dcd7476d468;hp=7e75f4dd0a89d75f1bca09976fd27cbb78904a5a;hpb=9d5838580d949f1af5a32e126f6e726450b995de;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index 7e75f4d..2ce16c3 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,4 +1,4 @@ -%# $Id: full.mc,v 1.1 2006-10-20 16:57:40 mike Exp $ +%# $Id: full.mc,v 1.14 2006-11-14 16:24:39 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" ], @@ -39,15 +40,35 @@ if ($n == 0) { [ "Language of Records" => "e:databaseInfo/e:langUsage" ], [ Restrictions => "e:databaseInfo/e:restrictions" ], [ Subjects => "e:databaseInfo/e:subjects" ], - ### Remember to set e:metaInfo/e:dateModified + [ "Implementation ID" => "i:status/i:implementationId" ], + [ "Implementation Name" => "i:status/i:implementationName" ], + [ "Implementation Version" => "i:status/i:implementationVersion" ], + [ "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. This information should probably be harvested from +the Init Response. +" } ], + [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], + [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], + [ "Operators" => \&calc_boolean, $xc ], + [ "Named Result Sets" => \&calc_nrs, $xc ], + [ "Record syntaxes" => \&calc_recsyn, $xc ], + [ "Explain" => \&calc_explain, $xc ], ); %perl> -