View | Details | Raw Unified | Return to bug 14363
Collapse All | Expand All

(-)a/opac/oai.pl (-2 / +9 lines)
Lines 225-231 sub new { Link Here
225
    }
225
    }
226
226
227
    my $parser = XML::LibXML->new();
227
    my $parser = XML::LibXML->new();
228
    my $record_dom = $parser->parse_string( $marcxml );
228
    my $record_dom;
229
    eval {
230
        $record_dom = $parser->parse_string( $marcxml );
231
    };
232
    if ($@) {
233
        warn "OAI-PMH: No marcxml for record " . $args{identifier};
234
        return $self;
235
    }
236
229
    my $format =  $args{metadataPrefix};
237
    my $format =  $args{metadataPrefix};
230
    if ( $format ne 'marcxml' ) {
238
    if ( $format ne 'marcxml' ) {
231
        my %args = (
239
        my %args = (
232
- 

Return to bug 14363