From 8e2c64c798364aac5dbd634ec83e434503ed2b76 Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Fri, 9 Apr 2021 13:45:33 +0200
Subject: [PATCH] - refactor: renamed variable, return string instead of
document object
---
bin/slubsipbuilderbagit.pl | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl
index ee9a99d..63e7f43 100644
--- a/bin/slubsipbuilderbagit.pl
+++ b/bin/slubsipbuilderbagit.pl
@@ -206,12 +206,12 @@ package SLUB::LZA::SIPBuilderBagIt;
}
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);
+ my $marc_doc = $parser->parse_string($recordData);
if ($with_debug) {
say "write DEBUG_${ppn}_extracted_marc_record.xml";
- SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_extracted_marc_record.xml", $marcblob);
+ SLUB::LZA::SIPBuilderBagIt::write_file("DEBUG_${ppn}_extracted_marc_record.xml", $marc_doc);
}
- return $marcblob;
+ return $marc_doc->serialize();
}
else {
carp("Problem asking catalogue at $url using $ppn");
--
GitLab