|
Lines 240-246
sub new {
Link Here
|
| 240 |
} |
240 |
} |
| 241 |
|
241 |
|
| 242 |
my $parser = XML::LibXML->new(); |
242 |
my $parser = XML::LibXML->new(); |
| 243 |
my $record_dom = $parser->parse_string( $marcxml ); |
243 |
my $record_dom; |
|
|
244 |
eval { |
| 245 |
$record_dom = $parser->parse_string( $marcxml ); |
| 246 |
}; |
| 247 |
if ($@) { |
| 248 |
warn "OAI-PMH: No marcxml for record " . $args{identifier}; |
| 249 |
return $self; |
| 250 |
} |
| 251 |
|
| 244 |
my $format = $args{metadataPrefix}; |
252 |
my $format = $args{metadataPrefix}; |
| 245 |
if ( $format ne 'marcxml' ) { |
253 |
if ( $format ne 'marcxml' ) { |
| 246 |
my %args = ( |
254 |
my %args = ( |
| 247 |
- |
|
|