X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=dd48c28e50532e80279d6722d4b2bcacd27b2c8d;hb=08e11c0116f3a7d6277c3641ec9a962d8bedff06;hp=7e75f4dd0a89d75f1bca09976fd27cbb78904a5a;hpb=1b29429069328d4c2046b471206e865eed0b72c3;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index 7e75f4d..dd48c28 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,12 +1,9 @@ -%# $Id: full.mc,v 1.1 2006-10-20 16:57:40 mike Exp $ +%# $Id: full.mc,v 1.22 2007-02-02 11:31:30 mike Exp $ <%args> $id %args> -<%once> -use ZOOM; -%once> <%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; @@ -17,37 +14,58 @@ if ($n == 0) { $m->comp("/details/error.mc", title => "Error", message => "No such ID '$id'"); } else { - my $rec = $rs->record(0); - my $xc = irspy_xpath_context($rec); + 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" ], [ "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" ], [ Contact => "e:databaseInfo/e:contact" ], + [ "URL to Hosting Organisation" => "i:status/i:hostURL" ], [ Extent => "e:databaseInfo/e:extent" ], [ History => "e:databaseInfo/e:history" ], [ "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" => \&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 ], + [ "Named Result Sets" => \&calc_nrs, $xc ], + [ "Record syntaxes" => \&calc_recsyn, $xc ], + [ "Explain" => \&calc_explain, $xc ], ); %perl> -