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