103 |
} |
} |
104 |
elsif ( $req_form eq &Net::Z3950::OID::unimarc ) { # FIXME convert to usmarc |
elsif ( $req_form eq &Net::Z3950::OID::unimarc ) { # FIXME convert to usmarc |
105 |
$this->{REP_FORM} = &Net::Z3950::OID::unimarc; |
$this->{REP_FORM} = &Net::Z3950::OID::unimarc; |
106 |
$this->{RECORD} = COBISS->fetch_marc; |
$this->{RECORD} = COBISS->fetch_rec('unimarc'); |
107 |
|
} |
108 |
|
elsif ( $req_form eq &Net::Z3950::OID::usmarc ) { # FIXME convert to usmarc |
109 |
|
$this->{REP_FORM} = &Net::Z3950::OID::usmarc; |
110 |
|
$this->{RECORD} = COBISS->fetch_rec('usmarc'); |
111 |
} |
} |
112 |
else { ## Unsupported record format |
else { ## Unsupported record format |
113 |
$this->{ERR_CODE} = 239; |
$this->{ERR_CODE} = 239; |