X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=d5b1799a15a72ef9503f9ffc1d8d5952d8e1a8cb;hb=7e87ee15785ae0693ec585186dce9e0a405f69d7;hp=1e19a8b6e41672fac8b902c6a68eef6069eaf573;hpb=e21c99371f2c3eee875aba29cd07019a82c19ed8;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index 1e19a8b..d5b1799 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,13 +1,11 @@ -%# $Id: full.mc,v 1.19 2006-12-06 13:00:40 mike Exp $ +%# $Id: full.mc,v 1.28 2007-05-11 13:32:57 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; -my $query = qq[rec.id="$qid"]; +my $query = cql_target($id); my $rs = $conn->search(new ZOOM::Query::CQL($query)); my $n = $rs->size(); if ($n == 0) { @@ -25,10 +23,11 @@ if ($n == 0) { [ 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" ], +# [ "Username (if needed)" => "e:serverInfo/e:authentication/e:user" ], +# [ "Password (if needed)" => "e:serverInfo/e:authentication/e:password" ], + [ "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" ], @@ -42,7 +41,7 @@ if ($n == 0) { [ "Implementation ID" => "i:status/i:implementationId" ], [ "Implementation Name" => "i:status/i:implementationName" ], [ "Implementation Version" => "i:status/i:implementationVersion" ], - [ "Reliability" => \&calc_reliability, $xc ], + [ "Reliability/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" ], @@ -51,8 +50,9 @@ if ($n == 0) { [ "Record syntaxes" => \&calc_recsyn, $xc ], [ "Explain" => \&calc_explain, $xc ], ); + my $title = $xc->find("e:databaseInfo/e:title"); %perl> -
<% xml_encode($caption) %> | +% $caption =~ s/\/(.*)//; +% my $help = $1; +<% xml_encode($caption) %><% + !defined $help ? "" : $m->comp("/help/link.mc", help =>"info/$help") + %> | <% xml_encode($data) %> |
---|