From 323ce9f1e7edb50be9de55412710a7a51715eff9 Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Fri, 9 Apr 2021 12:46:57 +0200
Subject: [PATCH] - minor: updated debug output

---
 bin/slubsipbuilderbagit.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl
index 201ba4d..956165c 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;
-- 
GitLab