From 89699f2c7e034cd62632ef254d1875600379e59e Mon Sep 17 00:00:00 2001 From: Jens Steidl <Jens.Steidl@slub-dresden.de> Date: Thu, 8 Apr 2021 16:32:19 +0200 Subject: [PATCH] - refactor: remove unused parameter --- bin/slubsipbuilderbagit.pl | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index ca8a675..109418f 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 -- GitLab