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 |
- |
|
|