Lines 41-47
GetOptions(
Link Here
|
41 |
'unless-exists=s' => \$unless_exists_field, |
41 |
'unless-exists=s' => \$unless_exists_field, |
42 |
) || podusage(1); |
42 |
) || podusage(1); |
43 |
|
43 |
|
44 |
pod2usage(0) if $help; |
44 |
pod2usage(1) if $help; |
|
|
45 |
pod2usage("Parameter field is mandatory") unless @fields; |
45 |
|
46 |
|
46 |
my @fields_to_add; |
47 |
my @fields_to_add; |
47 |
my $dt = dt_from_string; # Could be an option of the script |
48 |
my $dt = dt_from_string; # Could be an option of the script |
Lines 99-104
Add some MARC fields to bibliographic records.
Link Here
|
99 |
|
100 |
|
100 |
The replacement tokens are the ones used by strftime. |
101 |
The replacement tokens are the ones used by strftime. |
101 |
|
102 |
|
|
|
103 |
=head1 OPTIONS |
104 |
|
102 |
=over 8 |
105 |
=over 8 |
103 |
|
106 |
|
104 |
=item B<--help> |
107 |
=item B<--help> |
Lines 112-117
Verbose mode.
Link Here
|
112 |
=item B<--confirm> |
115 |
=item B<--confirm> |
113 |
|
116 |
|
114 |
Confirmation flag, the script will be running in dry-run mode if set not. |
117 |
Confirmation flag, the script will be running in dry-run mode if set not. |
|
|
118 |
|
115 |
=item B<--where> |
119 |
=item B<--where> |
116 |
|
120 |
|
117 |
Limits the search on bibliographic records with a user-specified WHERE clause. |
121 |
Limits the search on bibliographic records with a user-specified WHERE clause. |
118 |
- |
|
|