View | Details | Raw Unified | Return to bug 22509
Collapse All | Expand All

(-)a/misc/add_date_fields_to_marc_records.pl (-2 / +5 lines)
Lines 59-65 if ($verbose) { Link Here
59
    say "\t" . $_->as_formatted for @fields_to_add;
59
    say "\t" . $_->as_formatted for @fields_to_add;
60
}
60
}
61
61
62
$where ||= "";
62
$where = $where ? "WHERE $where" : '';
63
my $sth =
63
my $sth =
64
  $dbh->prepare("SELECT biblionumber, frameworkcode FROM biblio $where");
64
  $dbh->prepare("SELECT biblionumber, frameworkcode FROM biblio $where");
65
$sth->execute();
65
$sth->execute();
Lines 94-99 add_date_fields_to_marc_records.pl Link Here
94
94
95
  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' --unless-exists='905$a' --verbose --confirm
95
  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' --unless-exists='905$a' --verbose --confirm
96
96
97
  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' --unless-exists='905$a' --where "biblionumber=42" --verbose --confirm
98
97
=head1 DESCRIPTION
99
=head1 DESCRIPTION
98
100
99
Add some MARC fields to bibliographic records.
101
Add some MARC fields to bibliographic records.
Lines 120-125 Confirmation flag, the script will be running in dry-run mode if set not. Link Here
120
122
121
Limits the search on bibliographic records with a user-specified WHERE clause.
123
Limits the search on bibliographic records with a user-specified WHERE clause.
122
124
125
Only the columns from the biblio table are available.
126
123
=item B<--field>
127
=item B<--field>
124
128
125
Fields to add to the bibliographic records.
129
Fields to add to the bibliographic records.
126
- 

Return to bug 22509