-# if ( !defined($req_form) || ( $req_form eq &Net::Z3950::OID::xml ) )
- if (0)
- { ## XML records
- $this->{REP_FORM} = &Net::Z3950::OID::xml;
- $this->{RECORD} = '<xml>FIXME: not implementd</xml>';
- }
- elsif ( $req_form eq &Net::Z3950::OID::unimarc ) { # FIXME convert to usmarc
- $this->{REP_FORM} = &Net::Z3950::OID::unimarc;
- $this->{RECORD} = $from->next_marc('unimarc');
- }
- elsif ( $req_form eq &Net::Z3950::OID::usmarc ) { # FIXME convert to usmarc
- $this->{REP_FORM} = &Net::Z3950::OID::usmarc;
- $this->{RECORD} = $from->next_marc('usmarc');
- }
- else { ## Unsupported record format
- $this->{ERR_CODE} = 239;
- $this->{ERR_STR} = $req_form;
+ my $path = 'marc/' . $rs->{database} . "/$id.$format";
+ if ( ! -e $path ) {
+ warn "ERROR: $path not found";
+ ## Unsupported record format
+ $self->{ERR_CODE} = 239;
+ $self->{ERR_STR} = $req_form;