- refactor: remove unused parameter

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