-%# $Id: full.mc,v 1.19 2006-12-06 13:00:40 mike Exp $
+%# $Id: full.mc,v 1.21 2007-01-24 09:28:02 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;
"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" ],