|
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 |
- |
|
|