X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffull.mc;h=6655727664a3d0aa44de705f6b6cb77ae3ec6929;hb=137b6b21a1b8443f83d6ebd69cf4121d7596da6c;hp=5a948eb95bed712bc07b23f8c6c036ae3a23b820;hpb=752025c6b7e607b07778d0c66e4683f1bb4a034d;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index 5a948eb..6655727 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,9 +1,9 @@ -%# $Id: full.mc,v 1.29 2007-06-28 12:00:31 mike Exp $ <%args> $id %args> <%perl> -my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1"); +my $db = ZOOM::IRSpy::connect_to_registry(); +my $conn = new ZOOM::Connection($db); $conn->option(elementSetName => "zeerex"); my $query = cql_target($id); my $rs = $conn->search(new ZOOM::Query::CQL($query)); @@ -22,6 +22,7 @@ if ($n == 0) { [ Host => "e:serverInfo/e:host" ], [ Port => "e:serverInfo/e:port" ], [ "Database Name" => "e:serverInfo/e:database" ], + [ "Access Name (Unique DB)" => "e:databaseInfo/i:udb" ], [ "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" ], @@ -41,14 +42,17 @@ if ($n == 0) { [ "Implementation ID" => "i:status/i:implementationId" ], [ "Implementation Name" => "i:status/i:implementationName" ], [ "Implementation Version" => "i:status/i:implementationVersion" ], - [ "Reliability/reliability" => \&calc_reliability, $xc ], + [ "Reliability/reliability" => \&calc_reliability_wrapper, $xc ], [ "Services" => \&calc_init_options, $xc ], [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], + [ "Bath Profile searches" => \&calc_bath, $xc ], [ "Operators" => \&calc_boolean, $xc ], [ "Named Result Sets" => \&calc_nrs, $xc ], [ "Record syntaxes" => \&calc_recsyn, $xc ], [ "Explain" => \&calc_explain, $xc ], + [ "Multiple OPAC records" => \&calc_mor, $xc ], + [ "Piggyback searching" => \&calc_piggyback, $xc ], ); my $title = $xc->find("e:databaseInfo/e:title"); %perl> @@ -82,9 +86,11 @@ if ($n == 0) { % }