- minor: renamed debug files

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();