From 584fd8c9ac1425552c9b9fe5b79a7c40f8ef427f Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Tue, 16 Mar 2021 12:19:24 +0100
Subject: [PATCH] - refactor: get marc21 and mods with new funtionality
---
bin/slubsipbuilderbagit.pl | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl
index 2e57564..3b94d3c 100644
--- a/bin/slubsipbuilderbagit.pl
+++ b/bin/slubsipbuilderbagit.pl
@@ -552,6 +552,7 @@ PATCH
my @addMetaFile = @{ $aRefAddMetaFile };
my @addBagInfo = @{ $refAddBagInfo };
+ my ($mods, $marc21);
# create bag dir
SLUB::LZA::SIPBuilderBagIt::createDir($bagPath);
@@ -560,6 +561,11 @@ PATCH
# copy payload files to data
print_scalar_data("", "INFO: copying original data...", "", "white");
dircopy($ieDirectory, $dataPath) || die ("Error coping $ieDirectory to $dataPath");
+ # get descriptive metadata from catalog
+ if ($ppn) {
+ $marc21 = get_marc21_from_catalogue($ppn);
+ $mods = get_mods_from_marc21($marc21);
+ }
# create meta dir
SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
# copy not payload files to meta
@@ -582,12 +588,18 @@ PATCH
my @addMetaFile = @{ $aRefAddMetaFile };
my @addBagInfo = @{ $refAddBagInfo };
+ my ($mods, $marc21);
# create bag dir
SLUB::LZA::SIPBuilderBagIt::createDir($bagPath);
# move payloads to data dir (which is automatically renamed from IE Directory)
print_scalar_data("", "INFO: moving original data...", "", "white");
dirmove($ieDirectory, $dataPath) || die ("Error moving $ieDirectory to $dataPath");
+ # get descriptive metadata from catalog
+ if ($ppn) {
+ $marc21 = get_marc21_from_catalogue($ppn);
+ $mods = get_mods_from_marc21($marc21);
+ }
# create meta dir
SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
# copy not payload files to meta
@@ -610,12 +622,18 @@ PATCH
my @addMetaFile = @{ $aRefAddMetaFile };
my @addBagInfo = @{ $refAddBagInfo };
+ my ($mods, $marc21);
# create bag dir
SLUB::LZA::SIPBuilderBagIt::createDir($bagPath);
# move payloads to data dir (which is automatically renamed from IE Directory)
print_scalar_data("", "INFO: moving original data...", "", "white");
dirmove($ieDirectory, $dataPath) || die ("Error moving $ieDirectory to $dataPath");
+ # get descriptive metadata from catalog
+ if ($ppn) {
+ $marc21 = get_marc21_from_catalogue($ppn);
+ $mods = get_mods_from_marc21($marc21);
+ }
# create meta dir
SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
# copy not payload files to meta
--
GitLab