diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index cfbbb87f33ec09bb2110ff1b11616523c7dbf933..2d2c4fc50fdb1575f5a77dfb611b79354c572677 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);