Lines 1656-1666
sub _update_biblio_fields {
Link Here
|
1656 |
|
1656 |
|
1657 |
my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record); |
1657 |
my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record); |
1658 |
my $dbh = C4::Context->dbh; |
1658 |
my $dbh = C4::Context->dbh; |
1659 |
# FIXME no controlnumber, originalsource |
1659 |
# FIXME no originalsource |
1660 |
# FIXME 2 - should regularize normalization of ISBN wherever it is done |
1660 |
# FIXME 2 - should regularize normalization of ISBN wherever it is done |
1661 |
$isbn =~ s/\(.*$//; |
1661 |
$isbn = C4::Koha::GetNormalizedISBN($isbn); |
1662 |
$isbn =~ tr/ -_//; |
|
|
1663 |
$isbn = uc $isbn; |
1664 |
my $sth = $dbh->prepare("UPDATE import_biblios SET title = ?, author = ?, isbn = ?, issn = ? |
1662 |
my $sth = $dbh->prepare("UPDATE import_biblios SET title = ?, author = ?, isbn = ?, issn = ? |
1665 |
WHERE import_record_id = ?"); |
1663 |
WHERE import_record_id = ?"); |
1666 |
$sth->execute($title, $author, $isbn, $issn, $import_record_id); |
1664 |
$sth->execute($title, $author, $isbn, $issn, $import_record_id); |