use Encode;
my $databases = {
- 'COBISS' => 'COBISS',
+# 'COBISS' => 'COBISS',
'NSK01' => 'Aleph',
'NSK10' => 'Aleph',
'ZAG01' => 'Aleph',
$req_form eq Net::Z3950::OID::xml() ? 'xml' :
$req_form eq Net::Z3950::OID::unimarc() ? 'unimarc' :
$req_form eq Net::Z3950::OID::usmarc() ? 'marc' : # XXX usmarc -> marc
- undef;
+ die "unknown format $req_form";
if ( ! $format ) {
warn "ERROR: $req_form format not supported";
}
}
- my $q = $prefix . $self->{term};
+ my $q = $prefix . $self->{term} . '*';
print "# q: $q\n";
return $q;
}