[ 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" ],
[ "Record syntaxes" => \&calc_recsyn, $xc ],
[ "Explain" => \&calc_explain, $xc ],
[ "Multiple OPAC records" => \&calc_mor, $xc ],
- [ "Piggback searching" => \&calc_piggyback, $xc ],
+ [ "Piggyback searching" => \&calc_piggyback, $xc ],
);
my $title = $xc->find("e:databaseInfo/e:title");
</%perl>
sub calc_nrs { _calc_boolean(@_, 'i:status/i:named_resultset[@ok = "1"]') }
sub calc_mor { _calc_boolean(@_, 'i:status/i:multiple_opac[@ok = "1"]') }
-sub calc_piggyback { _calc_boolean(@_, 'i:status/i:piggback[@ok = "1"]') }
+sub calc_piggyback { _calc_boolean(@_, 'i:status/i:piggyback[@ok = "1"]') }
sub _calc_boolean {
my($id, $xc, $xpath) = @_;