- refactor: remove mods creation, hand over instead

bin/slubsipbuilderbagit.pl

@@ -415,12 +415,13 @@ PATCH
         }
     }
 
-    sub copyFilesToMeta($$$$$){
+    sub copyFilesToMeta($$$$$$){
         my $ppn = $_[0];
         my $noppn = $_[1];
         my $metaPath = $_[2];
         my $rightsFilePath = $_[3];
         my $aRefAddMetaFile = $_[4];
+        my $mods = $_[5];
 
         my @addMetaFile = @{ $aRefAddMetaFile };
 
@@ -449,8 +450,7 @@ PATCH
         }
 
         # mods.xml
-        if (defined $ppn) {
-            my $mods = prepare_mods_section_with_ppn($ppn); # get mods from catalog
+        if ($ppn && $mods) {
             write_file("$metaPath/mods.xml", $mods);
         }