diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index ca8a675ffa1177d3240c4a688b43017e79f6acca..109418fbe509758e7d24b406cd51023169f20bec 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -444,13 +444,12 @@ PATCH return 1; } - sub copyFilesToMeta($$$$$$){ + sub copyFilesToMeta($$$$$){ my $ppn = $_[0]; - my $noppn = $_[1]; - my $metaPath = $_[2]; - my $rightsFilePath = $_[3]; - my $aRefAddMetaFile = $_[4]; - my $mods = $_[5]; + my $metaPath = $_[1]; + my $rightsFilePath = $_[2]; + my $aRefAddMetaFile = $_[3]; + my $mods = $_[4]; my @addMetaFile = @{ $aRefAddMetaFile }; @@ -601,7 +600,7 @@ PATCH # create meta dir SLUB::LZA::SIPBuilderBagIt::createDir($metaPath); # copy not payload files to meta - SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods); + SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods); # add metadata for bag-info.txt add_metadata(\@addBagInfo, $ppn, $noppn, $marc21); # metadata warnings @@ -641,7 +640,7 @@ PATCH # create meta dir SLUB::LZA::SIPBuilderBagIt::createDir($metaPath); # copy not payload files to meta - SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods); + SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods); # add metadata for bag-info.txt add_metadata(\@addBagInfo, $ppn, $noppn, $marc21); # metadata warnings @@ -681,7 +680,7 @@ PATCH # create meta dir SLUB::LZA::SIPBuilderBagIt::createDir($metaPath); # copy not payload files to meta - SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $noppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods); + SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $metaPath, $rightsFilePath, \@addMetaFile, $mods); # add metadata for bag-info.txt add_metadata(\@addBagInfo, $ppn, $noppn, $marc21); # metadata warnings