|
Lines 1680-1690
sub _update_biblio_fields {
Link Here
|
| 1680 |
|
1680 |
|
| 1681 |
my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record); |
1681 |
my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record); |
| 1682 |
my $dbh = C4::Context->dbh; |
1682 |
my $dbh = C4::Context->dbh; |
| 1683 |
# FIXME no controlnumber, originalsource |
1683 |
# FIXME no originalsource |
| 1684 |
# FIXME 2 - should regularize normalization of ISBN wherever it is done |
1684 |
# FIXME 2 - should regularize normalization of ISBN wherever it is done |
| 1685 |
$isbn =~ s/\(.*$//; |
1685 |
$isbn = C4::Koha::GetNormalizedISBN($isbn); |
| 1686 |
$isbn =~ tr/ -_//; |
|
|
| 1687 |
$isbn = uc $isbn; |
| 1688 |
my $sth = $dbh->prepare("UPDATE import_biblios SET title = ?, author = ?, isbn = ?, issn = ? |
1686 |
my $sth = $dbh->prepare("UPDATE import_biblios SET title = ?, author = ?, isbn = ?, issn = ? |
| 1689 |
WHERE import_record_id = ?"); |
1687 |
WHERE import_record_id = ?"); |
| 1690 |
$sth->execute($title, $author, $isbn, $issn, $import_record_id); |
1688 |
$sth->execute($title, $author, $isbn, $issn, $import_record_id); |