-# 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;
- $format = 'unimarc';
- }
- elsif ( $req_form eq &Net::Z3950::OID::usmarc ) { # FIXME convert to usmarc
- $this->{REP_FORM} = &Net::Z3950::OID::usmarc;
- $format = 'usmarc';
- }
- else { ## Unsupported record format
- $this->{ERR_CODE} = 239;
- $this->{ERR_STR} = $req_form;
+ if ( ! $format ) {
+ warn "ERROR: $req_form format not supported";
+ $self->{ERR_CODE} = 239; ## Unsupported record format
+ $self->{ERR_STR} = $req_form;