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