X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=8819d4598d6b8b5de152f4ba8f56a0cb8095a7dd;hb=35fd6d896221833650650e0f7b72d194081d4974;hp=13865ed1c1d7f06728e85c49ffd3f01ab6654cea;hpb=415df9f44a98f5b2306df082f4982e967bcaed06;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index 13865ed..8819d45 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,9 +1,9 @@ -%# $Id: full.mc,v 1.17 2006-11-16 17:12:30 mike Exp $ +%# $Id: full.mc,v 1.24 2007-04-16 12:23:46 mike Exp $ <%args> $id %args> <%perl> -my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1"); +my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1"); $conn->option(elementSetName => "zeerex"); my $qid = $id; $qid =~ s/"/\\"/g; @@ -16,19 +16,22 @@ if ($n == 0) { } else { my $xc = irspy_xpath_context($rs->record(0)); my @fields = ( + [ Name => "e:databaseInfo/e:title", + lang => "en", primary => "true" ], + [ Country => "i:status/i:country" ], [ "Last Checked" => "i:status/i:probe[last()]" ], [ Protocol => "e:serverInfo/\@protocol" ], [ Host => "e:serverInfo/e:host" ], [ Port => "e:serverInfo/e:port" ], [ "Database Name" => "e:serverInfo/e:database" ], [ "Type of Library" => "i:status/i:libraryType" ], - [ Country => "i:status/i:country" ], [ "Username (if needed)" => "e:serverInfo/e:authentication/e:user" ], [ "Password (if needed)" => "e:serverInfo/e:authentication/e:password" ], - [ Title => "e:databaseInfo/e:title", - lang => "en", primary => "true" ], + [ "Server ID" => 'i:status/i:serverImplementationId/@value' ], + [ "Server Name" => 'i:status/i:serverImplementationName/@value' ], + [ "Server Version" => 'i:status/i:serverImplementationVersion/@value' ], [ Description => "e:databaseInfo/e:description", lang => "en", primary => "true" ], [ Author => "e:databaseInfo/e:author" ], @@ -43,12 +46,7 @@ if ($n == 0) { [ "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. -" } ], + [ "Services" => \&calc_init_options, $xc ], [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], [ "Operators" => \&calc_boolean, $xc ], @@ -56,8 +54,9 @@ the Init Response. [ "Record syntaxes" => \&calc_recsyn, $xc ], [ "Explain" => \&calc_explain, $xc ], ); + my $title = $xc->find("e:databaseInfo/e:title"); %perl> -