render queries with asterisk (*) at end

[Biblio-Z3950.git] / server.pl

diff --git a/server.pl b/server.pl
index 31d0fa6..693ce18 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -265,7 +265,7 @@ warn "# usemap ", dump($usemap);
         }
     }
 
-    my $q = $prefix . $self->{term};
+    my $q = $prefix . $self->{term} . '*';
        print "# q: $q\n";
        return $q;
 }