Skip to content
Snippets Groups Projects
Commit 7ed3339e authored by bolkun's avatar bolkun
Browse files

Fix fallback to k10plusPPN

parent a8cdb2a2
Branches
Tags
1 merge request!5Feature error coloring
......@@ -205,10 +205,7 @@ package SLUB::LZA::SIPBuilderBagIt;
SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_catalog_response.xml", $response->decoded_content);
}
my $recordData = $xp->findnodes_as_string('/*[local-name()="searchRetrieveResponse"]/*[local-name()="records"]/*[local-name()="record"]/*[local-name()="recordData"]/*');
if (!$recordData) {
print_scalar_data("", "ERROR: did not get any <recordData/> for PPN '$ppn' using '$sru'", "", "red");
die();
}
if (!$recordData) { croak("ERROR: Did not get any <recordData/> for PPN '$ppn' using '$sru'");}
my $marc_doc = $parser->parse_string($recordData);
add_marc21_schema_location($marc_doc);
if ($with_debug) {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment