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

(-)a/C4/Breeding.pm (-1 / +4 lines)
Lines 308-314 sub _handle_one_result { Link Here
308
    if( $breedingid ){
308
    if( $breedingid ){
309
        my @kohafields = ('biblio.title','biblio.author','biblioitems.isbn','biblioitems.lccn','biblioitems.editionstatement');
309
        my @kohafields = ('biblio.title','biblio.author','biblioitems.isbn','biblioitems.lccn','biblioitems.editionstatement');
310
        push @kohafields, C4::Context->preference('marcflavour') eq "MARC21" ? 'biblio.copyrightdate' : 'biblioitems.publicationyear';
310
        push @kohafields, C4::Context->preference('marcflavour') eq "MARC21" ? 'biblio.copyrightdate' : 'biblioitems.publicationyear';
311
        $row = TransformMarcToKoha({ record => $marcrecord, kohafields => \@kohafields, limit_table => 'no_items' });
311
        $row = C4::Biblio::TransformMarcToKoha({ record => $marcrecord, kohafields => \@kohafields, limit_table => 'no_items' });
312
        $row->{biblionumber} = $bib;
313
        $row->{server}       = $servhref->{servername};
314
        $row->{breedingid}   = $breedingid;
312
        $row->{isbn}=_isbn_replace($row->{isbn});
315
        $row->{isbn}=_isbn_replace($row->{isbn});
313
        $row = _add_custom_field_rowdata($row, $marcrecord);
316
        $row = _add_custom_field_rowdata($row, $marcrecord);
314
    }
317
    }
(-)a/C4/ImportBatch.pm (-1 / +1 lines)
Lines 1710-1716 sub _parse_biblio_fields { Link Here
1710
    my ($marc_record) = @_;
1710
    my ($marc_record) = @_;
1711
1711
1712
    my $dbh = C4::Context->dbh;
1712
    my $dbh = C4::Context->dbh;
1713
    my $bibliofields = TransformMarcToKoha({ record => $marc_record });
1713
    my $bibliofields = TransformMarcToKoha({ record => $marc_record, kohafields => ['biblio.title','biblio.author','biblioitems.isbn','biblioitems.issn'] });
1714
    return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'});
1714
    return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'});
1715
1715
1716
}
1716
}
(-)a/Koha/MetaSearcher.pm (+1 lines)
Lines 21-26 use Modern::Perl; Link Here
21
21
22
use base 'Class::Accessor';
22
use base 'Class::Accessor';
23
23
24
use C4::Biblio;
24
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
25
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
25
use C4::Search qw( new_record_from_zebra );
26
use C4::Search qw( new_record_from_zebra );
26
use DBIx::Class::ResultClass::HashRefInflator;
27
use DBIx::Class::ResultClass::HashRefInflator;
(-)a/Koha/MetadataRecord.pm (-2 lines)
Lines 35-41 and authority) records in Koha. Link Here
35
use Modern::Perl;
35
use Modern::Perl;
36
36
37
use Carp qw( carp );
37
use Carp qw( carp );
38
use C4::Biblio;
39
use Koha::Util::MARC;
38
use Koha::Util::MARC;
40
39
41
use base qw(Class::Accessor);
40
use base qw(Class::Accessor);
42
- 

Return to bug 30813