From f8d6b0c15bfda0187e4cc5a53dc68a7cebe6049f Mon Sep 17 00:00:00 2001
From: Jens Steidl <Jens.Steidl@slub-dresden.de>
Date: Tue, 16 Mar 2021 12:24:13 +0100
Subject: [PATCH] - add metadata for bag-info.txt (mappping only title
 informations for now)

---
 bin/slubsipbuilderbagit.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl
index cfbbb87..2d2c4fc 100644
--- a/bin/slubsipbuilderbagit.pl
+++ b/bin/slubsipbuilderbagit.pl
@@ -570,6 +570,10 @@ PATCH
         SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
         # copy not payload files to meta
         SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods);
+        # add metadata for bag-info.txt
+        add_metadata(\@addBagInfo, $ppn, $noppn, $marc21);
+        # metadata warnings
+        SLUB::LZA::SIPBuilderBagIt::checkForTitle(\@addBagInfo);
         # create slub bagit
         print_scalar_data("", "INFO: building SIP...", "", "white");
         SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo);
@@ -604,6 +608,10 @@ PATCH
         SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
         # copy not payload files to meta
         SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods);
+        # add metadata for bag-info.txt
+        add_metadata(\@addBagInfo, $ppn, $noppn, $marc21);
+        # metadata warnings
+        SLUB::LZA::SIPBuilderBagIt::checkForTitle(\@addBagInfo);
         # create slub bagit
         print_scalar_data("", "INFO: building SIP...", "", "white");
         SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo);
@@ -638,6 +646,10 @@ PATCH
         SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
         # copy not payload files to meta
         SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods);
+        # add metadata for bag-info.txt
+        add_metadata(\@addBagInfo, $ppn, $noppn, $marc21);
+        # metadata warnings
+        SLUB::LZA::SIPBuilderBagIt::checkForTitle(\@addBagInfo);
         # create slub bagit
         print_scalar_data("", "INFO: building SIP...", "", "white");
         SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo);
-- 
GitLab