diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index ba427d35bd84946410e6660f83725f48820ddcd8..8122a79ac44f6bd404739a2585be2a039b899075 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -587,6 +587,7 @@ use Getopt::Long; use Path::Tiny; use Carp; # confess() use Pod::Usage; # pod2usage() +use List::Util qw(none); my $save; my $ieDirectory; @@ -766,6 +767,14 @@ sub main{ # get bag name my $bagNameDir = SLUB::LZA::SIPBuilderBagIt::generateBagName($exportToArchiveDate, $ppn, $noppn); + # user hints + my @keys; + for my $hash (@addBagInfo) { + push @keys, keys %{$hash}; + } + SLUB::LZA::SIPBuilderBagIt::print_scalar_data("", "WARNING: No Title given. Please consider adding a human-readable title with '--add_key_value=Title:YOUR-TITLE'", "", "yellow") + if none { $_ =~ m/^[Tt][Ii][Tt][Ll][Ee]/ } @keys; + # save options if($save eq "copy") { my $bagPath = "$outputPath/$bagNameDir";