use database name for BASENAME

diff --git a/server.pl b/server.pl
index 4dc54d5..5ca7bcd 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -118,7 +118,7 @@ sub FetchHandle {
         return;
     }
 
-    $self->{BASENAME} = "HtmlZ3950";
+    $self->{BASENAME} = $rs->{database};
 
        my $format =
                $req_form eq Net::Z3950::OID::xml()     ? 'xml' :