diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index ea8d2288aa72c22fab7dea6efd42f96a9d2a0eaf..30bd0a1ac6acf32838c74a2071065a18e3d85a6f 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -207,7 +207,7 @@ package SLUB::LZA::SIPBuilderBagIt; my $parser = XML::LibXML->new(); if ($with_debug) { say "write DEBUG_${ppn}_response.xml"; - SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_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"]/*'); if (!$recordData) { croak("ERROR: Did not get any <recordData/> for PPN '$ppn' using '$sru'");} @@ -219,7 +219,7 @@ package SLUB::LZA::SIPBuilderBagIt; say "write DEBUG_${ppn}_marc_unpatched.xml"; SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_marc_unpatched.xml", $marcblob); say "write DEBUG_${ppn}_marc.xml"; - SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_marc.xml", $marcblob_patched); + SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_extracted_marc_record.xml", $marcblob); } return $marcblob_patched->toString();