fix Zoom query encoding

we try to decode query back into utf-8 to generate correct search
string to insert into HTML form

diff --git a/server.pl b/server.pl
index 5ca7bcd..31d0fa6 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -8,6 +8,7 @@ use Net::Z3950::OID;
 use Data::Dumper;
 use COBISS;
 use Aleph;
+use Encode;
 
 my $databases = {
        'COBISS' => 'COBISS',
@@ -62,6 +63,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};