diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index 8c79ecb0baffccfd2924934844ec4b5dc0a148e2..a4e813659c8dfb9454c849a2284d88d419a4c2a4 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -7990,12 +7990,14 @@ PATCH # create data dir SLUB::LZA::SIPBuilderBagIt::createDir($dataPath); # copy payload files to data + print_scalar_data("", "INFO: copying original data...", "", "white"); dircopy($ieDirectory, $dataPath) || die ("Error coping $ieDirectory to $dataPath"); # create meta dir SLUB::LZA::SIPBuilderBagIt::createDir($metaPath); # copy not payload files to meta SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile); # create slub bagit + print_scalar_data("", "INFO: building DIP...", "", "white"); SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo); } @@ -8016,12 +8018,14 @@ PATCH # 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"); # create meta dir SLUB::LZA::SIPBuilderBagIt::createDir($metaPath); # copy not payload files to meta SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile); # create slub bagit + print_scalar_data("", "INFO: building DIP...", "", "white"); SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo); } @@ -8042,12 +8046,14 @@ PATCH # 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"); # create meta dir SLUB::LZA::SIPBuilderBagIt::createDir($metaPath); # copy not payload files to meta SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile); # create slub bagit + print_scalar_data("", "INFO: building DIP...", "", "white"); SLUB::LZA::SIPBuilderBagIt::create_slub_bagit($bagPath, \@addBagInfo); }