remove unused module use

[Biblio-Z3950.git] / server.pl

diff --git a/server.pl b/server.pl
index 4dc54d5..507be61 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -8,12 +8,19 @@ use Net::Z3950::OID;
 use Data::Dumper;
 use COBISS;
 use Aleph;
+use GoogleBooks;
+use vuFind;
 
+use Encode;
+
+# databases names (left) must be in uppercase!
 my $databases = {
-       'COBISS' => 'COBISS',
+#      'COBISS' => 'COBISS',
        'NSK01'  => 'Aleph',
        'NSK10'  => 'Aleph',
        'ZAG01'  => 'Aleph',
+       'GOOGLEBOOKS' => 'GoogleBooks',
+       'HATHITRUST' => 'vuFind',
 };
 
 my $max_records = 3; # XXX configure this
@@ -62,6 +69,8 @@ diag "using $module for $database ", Dumper( $from );
         return;
     }
 
+       $query = decode('utf-8', $query); # FIXME Zoom encoding
+
 diag "search for $query";
 
     my $setname  = $self->{SETNAME};
@@ -118,13 +127,13 @@ sub FetchHandle {
         return;
     }
 
-    $self->{BASENAME} = "HtmlZ3950";
+    $self->{BASENAME} = $rs->{database};
 
        my $format =
                $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";
@@ -206,7 +215,6 @@ sub render {
 package Net::Z3950::RPN::Term;
 
 use Data::Dump qw(dump);
-use COBISS;
 
 sub render {
        my ($self,$usemap) = @_;
@@ -262,7 +270,7 @@ warn "# usemap ", dump($usemap);
         }
     }
 
-    my $q = $prefix . $self->{term};
+    my $q = $prefix . $self->{term} . '*';
        print "# q: $q\n";
        return $q;
 }