Lines 44-49
BEGIN {
Link Here
|
44 |
GetImportBatch |
44 |
GetImportBatch |
45 |
AddAuthToBatch |
45 |
AddAuthToBatch |
46 |
AddBiblioToBatch |
46 |
AddBiblioToBatch |
|
|
47 |
DeleteBiblioInBatch |
47 |
AddItemsToImportBiblio |
48 |
AddItemsToImportBiblio |
48 |
ModAuthorityInBatch |
49 |
ModAuthorityInBatch |
49 |
ModBiblioInBatch |
50 |
ModBiblioInBatch |
Lines 296-301
sub AddBiblioToBatch {
Link Here
|
296 |
return $import_record_id; |
297 |
return $import_record_id; |
297 |
} |
298 |
} |
298 |
|
299 |
|
|
|
300 |
=head2 DeleteBiblioInBatch |
301 |
DeleteBiblioInBatch( $import_record_id ); |
302 |
=cut |
303 |
|
304 |
sub DeleteBiblioInBatch { |
305 |
my ($import_record_id) = @_; |
306 |
_delete_import_record_marc($import_record_id); |
307 |
} |
308 |
|
299 |
=head2 ModBiblioInBatch |
309 |
=head2 ModBiblioInBatch |
300 |
|
310 |
|
301 |
ModBiblioInBatch($import_record_id, $marc_record); |
311 |
ModBiblioInBatch($import_record_id, $marc_record); |
Lines 1615-1620
sub _update_import_record_marc {
Link Here
|
1615 |
$sth->finish(); |
1625 |
$sth->finish(); |
1616 |
} |
1626 |
} |
1617 |
|
1627 |
|
|
|
1628 |
sub _delete_import_record_marc { |
1629 |
my ($import_record_id) = @_; |
1630 |
|
1631 |
my $dbh = C4::Context->dbh; |
1632 |
my $sth = $dbh->prepare("DELETE FROM import_records WHERE import_record_id = ?"); |
1633 |
$sth->execute($import_record_id); |
1634 |
$sth->finish(); |
1635 |
} |
1636 |
|
1618 |
sub _add_auth_fields { |
1637 |
sub _add_auth_fields { |
1619 |
my ($import_record_id, $marc_record) = @_; |
1638 |
my ($import_record_id, $marc_record) = @_; |
1620 |
|
1639 |
|
Lines 1639-1645
sub _add_biblio_fields {
Link Here
|
1639 |
my $sth = $dbh->prepare("INSERT INTO import_biblios (import_record_id, title, author, isbn, issn) VALUES (?, ?, ?, ?, ?)"); |
1658 |
my $sth = $dbh->prepare("INSERT INTO import_biblios (import_record_id, title, author, isbn, issn) VALUES (?, ?, ?, ?, ?)"); |
1640 |
$sth->execute($import_record_id, $title, $author, $isbn, $issn); |
1659 |
$sth->execute($import_record_id, $title, $author, $isbn, $issn); |
1641 |
$sth->finish(); |
1660 |
$sth->finish(); |
1642 |
|
|
|
1643 |
} |
1661 |
} |
1644 |
|
1662 |
|
1645 |
sub _update_biblio_fields { |
1663 |
sub _update_biblio_fields { |