From 7f3c98478ab63e834d7787c1ce6ab06e46d44395 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 10 May 2019 07:55:49 -0500 Subject: [PATCH] Bug 22509: Fix POD error 1. "Apparent command =item not preceded by blank line" 2. Display the options for help 3. Do not run if no --field passed Signed-off-by: Martin Renvoize --- misc/add_date_fields_to_marc_records.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/misc/add_date_fields_to_marc_records.pl b/misc/add_date_fields_to_marc_records.pl index 6368c36c58..9d348d3b28 100755 --- a/misc/add_date_fields_to_marc_records.pl +++ b/misc/add_date_fields_to_marc_records.pl @@ -41,7 +41,8 @@ GetOptions( 'unless-exists=s' => \$unless_exists_field, ) || podusage(1); -pod2usage(0) if $help; +pod2usage(1) if $help; +pod2usage("Parameter field is mandatory") unless @fields; my @fields_to_add; my $dt = dt_from_string; # Could be an option of the script @@ -99,6 +100,8 @@ Add some MARC fields to bibliographic records. The replacement tokens are the ones used by strftime. +=head1 OPTIONS + =over 8 =item B<--help> @@ -112,6 +115,7 @@ Verbose mode. =item B<--confirm> Confirmation flag, the script will be running in dry-run mode if set not. + =item B<--where> Limits the search on bibliographic records with a user-specified WHERE clause. -- 2.39.5