diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index 201ba4d8705a10ca016a964f66e08918fb70f87f..956165c1d326844d28b51f31163c233c4cbef824 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -203,14 +203,14 @@ package SLUB::LZA::SIPBuilderBagIt; my $xp = XML::XPath->new($response->decoded_content); my $parser = XML::LibXML->new(); 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); } 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'");} my $marcblob = $parser->parse_string($recordData); 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); } return $marcblob;