Skip to content
Snippets Groups Projects
Commit 323ce9f1 authored by Jens Steidl's avatar Jens Steidl :baby_chick:
Browse files

- minor: updated debug output

parent a925797f
No related branches found
No related tags found
No related merge requests found
...@@ -203,14 +203,14 @@ package SLUB::LZA::SIPBuilderBagIt; ...@@ -203,14 +203,14 @@ package SLUB::LZA::SIPBuilderBagIt;
my $xp = XML::XPath->new($response->decoded_content); my $xp = XML::XPath->new($response->decoded_content);
my $parser = XML::LibXML->new(); my $parser = XML::LibXML->new();
if ($with_debug) { if ($with_debug) {
say "write DEBUG_${ppn}_response.xml"; say "write DEBUG_${ppn}_catalog_response.xml";
SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_catalog_response.xml", $response->decoded_content); 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"]/*'); my $recordData = $xp->findnodes_as_string('/*[local-name()="searchRetrieveResponse"]/*[local-name()="records"]/*[local-name()="record"]/*[local-name()="recordData"]/*');
if (!$recordData) { croak("ERROR: Did not get any <recordData/> for PPN '$ppn' using '$sru'");} if (!$recordData) { croak("ERROR: Did not get any <recordData/> for PPN '$ppn' using '$sru'");}
my $marcblob = $parser->parse_string($recordData); my $marcblob = $parser->parse_string($recordData);
if ($with_debug) { if ($with_debug) {
say "write DEBUG_${ppn}_marc.xml"; say "write DEBUG_${ppn}_extracted_marc_record.xml";
SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_extracted_marc_record.xml", $marcblob); SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_extracted_marc_record.xml", $marcblob);
} }
return $marcblob; return $marcblob;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment