X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=server.pl;h=8f0d7faf1b4a9062dda0120bfacaedf49b217649;hb=9c5761f797b5a9f3432381412b13a78c131cd0a9;hp=31d0fa64377bdd6da1ac6cd149776990a4110ccb;hpb=f8051db6bc920f69a4d8367d8744e84ca2076d98;p=Biblio-Z3950.git

diff --git a/server.pl b/server.pl
index 31d0fa6..8f0d7fa 100755
--- a/server.pl
+++ b/server.pl
@@ -11,7 +11,7 @@ use Aleph;
 use Encode;
 
 my $databases = {
-	'COBISS' => 'COBISS',
+#	'COBISS' => 'COBISS',
 	'NSK01'  => 'Aleph',
 	'NSK10'  => 'Aleph',
 	'ZAG01'  => 'Aleph',
@@ -127,7 +127,7 @@ sub FetchHandle {
 		$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";
@@ -265,7 +265,7 @@ warn "# usemap ", dump($usemap);
         }
     }
 
-    my $q = $prefix . $self->{term};
+    my $q = $prefix . $self->{term} . '*';
 	print "# q: $q\n";
 	return $q;
 }