3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 eval { require "$FindBin::Bin/../kohalib.pl" };
30 use Koha::DateUtils qw( dt_from_string );
32 my ( $verbose, $help, $confirm, $where, @fields );
33 my $dbh = C4::Context->dbh;
37 'verbose|v' => \$verbose,
38 'confirm|c' => \$confirm,
40 'field=s@' => \@fields,
43 pod2usage(0) if $help;
46 my $dt = dt_from_string; # Could be an option of the script
47 for my $field (@fields) {
48 my ( $f_sf, $value ) = split '=', $field;
49 my ( $tag, $subfield ) = split '\$', $f_sf;
51 MARC::Field->new( $tag, '', '', $subfield => $dt->strftime($value) );
54 say "Confirm flag not passed, running in dry-run mode...";
56 say "The following MARC fields will be added:";
57 say "\t" . $_->as_formatted for @fields_to_add;
62 $dbh->prepare("SELECT biblionumber, frameworkcode FROM biblio $where");
65 while ( my ( $biblionumber, $frameworkcode ) = $sth->fetchrow_array ) {
67 C4::Biblio::GetMarcBiblio( { biblionumber => $biblionumber } );
68 next unless $marc_record;
69 $marc_record->append_fields(@fields_to_add);
72 C4::Biblio::ModBiblio( $marc_record, $biblionumber, $frameworkcode );
73 say "Bibliographic record $biblionumber has been modified"
74 if $verbose and $modified;
77 say "Bibliographic record $biblionumber would have been modified";
83 add_date_fields_to_marc_records.pl
87 perl add_date_fields_to_marc_records.pl --help
89 perl add_date_fields_to_marc_records.pl --field='905$a=0/%Y' --field='905$a=1/%Y/%b-%m' --field='905$a=2/%Y/%b-%m/%d' --verbose --confirm
93 Add some MARC fields to bibliographic records.
95 The replacement tokens are the ones used by strftime.
109 Confirmation flag, the script will be running in dry-run mode if set not.
112 Limits the search on bibliographic records with a user-specified WHERE clause.
116 Fields to add to the bibliographic records.
118 Must be formatted as 'tag' $ 'subfield' = 'value'
122 905$a=0/%Y will add a new field 905$a with the value '0/2019' (if run in 2019)
124 905$a=2/%Y/%b-%m/%d'will a a new field 905$a with the value '2/2019/Mar-03/13' if run on March 13th 2019