--- server.pl	2009/06/20 22:09:33	8
+++ server.pl	2009/06/21 08:16:41	9
@@ -103,7 +103,11 @@
     }
     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;