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