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