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