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