- __buildBag() uses signatures now

- simplifed title-check

lib/SLUB/LZA/SIPBuilderBagIt.pm

@@ -334,26 +334,16 @@ sub create_slub_bagit($bagPath,$refAddBagInfo){
     return 1;
 }
 
-sub __buildBag {
-    my $ppn = shift;
-    my $noppn = shift;
-    my $rightsFilePath = shift;
-    my $aRefAddMetaFile = shift;
-    my $refAddBagInfo = shift;
-    my $bagPath = shift;
-    my $metaPath = shift;
-
+sub __buildBag ($ppn, $noppn, $rightsFilePath, $aRefAddMetaFile, $refAddBagInfo, $bagPath, $metaPath){
     # create meta dir
     SLUB::LZA::SIPBuilderBagIt::createDir($metaPath);
     my @addMetaFile = @{ $aRefAddMetaFile };
     my @addBagInfo = @{ $refAddBagInfo };
     my $marc21;
-
     # get descriptive metadata from catalog
     if ($ppn) {
         $marc21 = get_marc21_from_catalogue($ppn);
     }
-
     # copy not payload files to meta
     SLUB::LZA::SIPBuilderBagIt::copyFilesToMeta($ppn, $metaPath, $rightsFilePath, \@addMetaFile, $marc21);
     # add metadata for bag-info.txt
@@ -405,7 +395,7 @@ sub checkForTitle($key_hash_list_aref){
         push @keys, keys %{$hash};
     }
     # check for title
-    if (none { $_ =~ m/^[Tt][Ii][Tt][Ll][Ee]/ } @keys) {
+    if (none { lc($_) =~ m/^title/ } @keys) {
         print_scalar_data("", "WARNING: No Title given. Please consider adding a human-readable title with '--add_key_value=Title:YOUR-TITLE'", "", "yellow");
         return 0;
     }