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