From 0839099aeba46ebd1dce47270e76b523fddfceab Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Fri, 9 Apr 2021 09:55:11 +0200
Subject: [PATCH] - minor: renamed debug files
---
bin/slubsipbuilderbagit.pl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl
index ea8d228..30bd0a1 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();
--
GitLab