generate marc record

[Biblio-Z3950.git] / server.pl

diff --git a/server.pl b/server.pl
index 0cfce93..1e17f2c 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -49,7 +49,8 @@ diag "search for $query";
         $this->{ERR_CODE} = 108;
         return;
     }
-    my $hits = $CROBISS::hits || diag "no results for $query";
+    my $hits = $COBISS::hits || diag "no results for $query";
+diag "got $hits hits";
     my $rs   = {
         lower => 1,
         upper => $hits < $max_records ? $max_records : $hits,
@@ -102,7 +103,11 @@ diag Dumper( $this );
     }
     elsif ( $req_form eq &Net::Z3950::OID::unimarc ) { # FIXME convert to usmarc
         $this->{REP_FORM} = &Net::Z3950::OID::unimarc;
-        $this->{RECORD} = COBISS->fetch_marc;
+        $this->{RECORD} = COBISS->fetch_rec('unimarc');
+    }
+    elsif ( $req_form eq &Net::Z3950::OID::usmarc ) {  # FIXME convert to usmarc
+        $this->{REP_FORM} = &Net::Z3950::OID::usmarc;
+        $this->{RECORD} = COBISS->fetch_rec('usmarc');
     }
     else {    ## Unsupported record format
         $this->{ERR_CODE} = 239;