- add metadata for bag-info.txt (mappping only title informations for now)

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);