diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index 2e57564f340c8aedcd14d3079113dee3eb56d0d1..3b94d3caa6ec7f5b98a83c89811a532427a2bd13 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