View | Details | Raw Unified | Return to bug 19269
Collapse All | Expand All

(-)a/C4/ImportBatch.pm (-11 / +16 lines)
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
(-)a/Koha/MetaSearcher.pm (-1 / +2 lines)
Lines 205-210 our $_batch_db_mapping = { Link Here
205
    issn => 'import_biblios.issn',
205
    issn => 'import_biblios.issn',
206
    'local-number' => 'import_biblios.control_number',
206
    'local-number' => 'import_biblios.control_number',
207
    title => 'import_biblios.title',
207
    title => 'import_biblios.title',
208
    lccn => 'import_biblios.lccn',
209
    date => 'import_biblios.pubdate',
208
};
210
};
209
211
210
our $_batch_db_text_columns = {
212
our $_batch_db_text_columns = {
211
- 

Return to bug 19269