|
Lines 1660-1675
sub _add_auth_fields {
Link Here
|
| 1660 |
sub _add_biblio_fields { |
1660 |
sub _add_biblio_fields { |
| 1661 |
my ($import_record_id, $marc_record) = @_; |
1661 |
my ($import_record_id, $marc_record) = @_; |
| 1662 |
|
1662 |
|
| 1663 |
my $controlnumber; |
1663 |
my ($title, $author, $isbn, $issn, $controlnumber, $lccn, $pubdate) = _parse_biblio_fields($marc_record); |
| 1664 |
if ($marc_record->field('001')) { |
|
|
| 1665 |
$controlnumber = $marc_record->field('001')->data(); |
| 1666 |
} |
| 1667 |
my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record); |
| 1668 |
my $dbh = C4::Context->dbh; |
1664 |
my $dbh = C4::Context->dbh; |
| 1669 |
# FIXME no originalsource |
1665 |
# FIXME no originalsource |
| 1670 |
$isbn = C4::Koha::GetNormalizedISBN($isbn); |
1666 |
$isbn = C4::Koha::GetNormalizedISBN($isbn); |
| 1671 |
my $sth = $dbh->prepare("INSERT INTO import_biblios (import_record_id, title, author, isbn, issn, control_number) VALUES (?, ?, ?, ?, ?, ?)"); |
1667 |
$lccn =~ s/^\s+|\s+$//g; |
| 1672 |
$sth->execute($import_record_id, $title, $author, $isbn, $issn, $controlnumber); |
1668 |
my $sth = $dbh->prepare("INSERT INTO import_biblios (import_record_id, title, author, isbn, issn, control_number, lccn, pubdate) VALUES (?, ?, ?, ?, ?, ?, ?, ?)"); |
|
|
1669 |
$sth->execute($import_record_id, $title, $author, $isbn, $issn, $controlnumber, $lccn, $pubdate); |
| 1673 |
$sth->finish(); |
1670 |
$sth->finish(); |
| 1674 |
|
1671 |
|
| 1675 |
} |
1672 |
} |
|
Lines 1677-1690
sub _add_biblio_fields {
Link Here
|
| 1677 |
sub _update_biblio_fields { |
1674 |
sub _update_biblio_fields { |
| 1678 |
my ($import_record_id, $marc_record) = @_; |
1675 |
my ($import_record_id, $marc_record) = @_; |
| 1679 |
|
1676 |
|
| 1680 |
my ($title, $author, $isbn, $issn) = _parse_biblio_fields($marc_record); |
1677 |
my ($title, $author, $isbn, $issn, $controlnumber, $lccn, $pubdate) = _parse_biblio_fields($marc_record); |
| 1681 |
my $dbh = C4::Context->dbh; |
1678 |
my $dbh = C4::Context->dbh; |
| 1682 |
# FIXME no originalsource |
1679 |
# FIXME no originalsource |
| 1683 |
# FIXME 2 - should regularize normalization of ISBN wherever it is done |
1680 |
# FIXME 2 - should regularize normalization of ISBN wherever it is done |
| 1684 |
$isbn = C4::Koha::GetNormalizedISBN($isbn); |
1681 |
$isbn = C4::Koha::GetNormalizedISBN($isbn); |
| 1685 |
my $sth = $dbh->prepare("UPDATE import_biblios SET title = ?, author = ?, isbn = ?, issn = ? |
1682 |
my $sth = $dbh->prepare("UPDATE import_biblios SET title = ?, author = ?, isbn = ?, issn = ?, control_number = ?, lccn = ?, pubdate = ? |
| 1686 |
WHERE import_record_id = ?"); |
1683 |
WHERE import_record_id = ?"); |
| 1687 |
$sth->execute($title, $author, $isbn, $issn, $import_record_id); |
1684 |
$sth->execute($title, $author, $isbn, $issn, $controlnumber, $lccn, $pubdate, $import_record_id); |
| 1688 |
$sth->finish(); |
1685 |
$sth->finish(); |
| 1689 |
} |
1686 |
} |
| 1690 |
|
1687 |
|
|
Lines 1693-1699
sub _parse_biblio_fields {
Link Here
|
| 1693 |
|
1690 |
|
| 1694 |
my $dbh = C4::Context->dbh; |
1691 |
my $dbh = C4::Context->dbh; |
| 1695 |
my $bibliofields = TransformMarcToKoha($marc_record, ''); |
1692 |
my $bibliofields = TransformMarcToKoha($marc_record, ''); |
| 1696 |
return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'}); |
1693 |
my $controlnumber; |
|
|
1694 |
if ($marc_record->field('001')) { |
| 1695 |
$controlnumber = $marc_record->field('001')->data(); |
| 1696 |
} |
| 1697 |
my $pubdate; |
| 1698 |
if ($marc_record->field('008')) { |
| 1699 |
$pubdate = substr( $marc_record->field('008')->data(), 7, 4 ); |
| 1700 |
} |
| 1701 |
return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'}, $controlnumber, $bibliofields->{'lccn'}, $pubdate); |
| 1697 |
|
1702 |
|
| 1698 |
} |
1703 |
} |
| 1699 |
|
1704 |
|