|
Lines 286-294
sub construct_objects_needed {
Link Here
|
| 286 |
(authtypecode, marcxml) |
286 |
(authtypecode, marcxml) |
| 287 |
VALUES (?, "")'; |
287 |
VALUES (?, "")'; |
| 288 |
$insert_sth = $dbh->prepare($query); |
288 |
$insert_sth = $dbh->prepare($query); |
| 289 |
$insert_sth->execute('authtypecode1'); |
289 |
$insert_sth->execute('atc1'); |
| 290 |
my $authid1 = $dbh->last_insert_id( undef, undef, 'auth_header', undef ); |
290 |
my $authid1 = $dbh->last_insert_id( undef, undef, 'auth_header', undef ); |
| 291 |
$insert_sth->execute('authtypecode2'); |
291 |
$insert_sth->execute('atc2'); |
| 292 |
my $authid2 = $dbh->last_insert_id( undef, undef, 'auth_header', undef ); |
292 |
my $authid2 = $dbh->last_insert_id( undef, undef, 'auth_header', undef ); |
| 293 |
|
293 |
|
| 294 |
# ---------- Add 1 old_issues |
294 |
# ---------- Add 1 old_issues |
| 295 |
- |
|
|