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

(-)a/Koha/Biblio.pm (-3 / +3 lines)
Lines 852-867 sub get_marc_notes { Link Here
852
    return \@marcnotes;
852
    return \@marcnotes;
853
}
853
}
854
854
855
=head3 get_authors_from_MARC
855
=head3 get_marc_authors
856
856
857
    my $authors = $biblio->get_authors_from_MARC;
857
    my $authors = $biblio->get_marc_authors;
858
858
859
Get all authors from the MARC record and returns them in an array.
859
Get all authors from the MARC record and returns them in an array.
860
The authors are stored in different fields depending on MARC flavour
860
The authors are stored in different fields depending on MARC flavour
861
861
862
=cut
862
=cut
863
863
864
sub get_authors_from_MARC {
864
sub get_marc_authors {
865
    my ( $self, $params ) = @_;
865
    my ( $self, $params ) = @_;
866
866
867
    my ( $mintag, $maxtag, $fields_filter );
867
    my ( $mintag, $maxtag, $fields_filter );
(-)a/basket/basket.pl (-1 / +1 lines)
Lines 72-78 foreach my $biblionumber ( @bibs ) { Link Here
72
    my $biblio           = Koha::Biblios->find( $biblionumber );
72
    my $biblio           = Koha::Biblios->find( $biblionumber );
73
    my $record           = &GetMarcBiblio({ biblionumber => $biblionumber });
73
    my $record           = &GetMarcBiblio({ biblionumber => $biblionumber });
74
    my $marcnotesarray   = $biblio->get_marc_notes({ marcflavour => $marcflavour });
74
    my $marcnotesarray   = $biblio->get_marc_notes({ marcflavour => $marcflavour });
75
    my $marcauthorsarray = $biblio->get_authors_from_MARC;
75
    my $marcauthorsarray = $biblio->get_marc_authors;
76
    my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
76
    my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
77
    my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
77
    my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
78
    my $marcurlsarray    = GetMarcUrls    ($record,$marcflavour);
78
    my $marcurlsarray    = GetMarcUrls    ($record,$marcflavour);
(-)a/basket/sendbasket.pl (-1 / +1 lines)
Lines 78-84 if ( $email_add ) { Link Here
78
        my $record           = GetMarcBiblio({
78
        my $record           = GetMarcBiblio({
79
            biblionumber => $biblionumber,
79
            biblionumber => $biblionumber,
80
            embed_items => 1 });
80
            embed_items => 1 });
81
        my $marcauthorsarray = $biblio->get_authors_from_MARC;
81
        my $marcauthorsarray = $biblio->get_marc_authors;
82
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
82
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
83
83
84
        my @items = GetItemsInfo( $biblionumber );
84
        my @items = GetItemsInfo( $biblionumber );
(-)a/opac/opac-basket.pl (-1 / +1 lines)
Lines 94-100 foreach my $biblionumber ( @bibs ) { Link Here
94
    $record_processor->process($record);
94
    $record_processor->process($record);
95
    next unless $record;
95
    next unless $record;
96
    my $marcnotesarray   = $biblio->get_marc_notes({ marcflavour => $marcflavour, opac => 1 });
96
    my $marcnotesarray   = $biblio->get_marc_notes({ marcflavour => $marcflavour, opac => 1 });
97
    my $marcauthorsarray = $biblio->get_authors_from_MARC;
97
    my $marcauthorsarray = $biblio->get_marc_authors;
98
    my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
98
    my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
99
    my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
99
    my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
100
    my $marcurlsarray    = GetMarcUrls    ($record,$marcflavour);
100
    my $marcurlsarray    = GetMarcUrls    ($record,$marcflavour);
(-)a/opac/opac-detail.pl (-1 / +1 lines)
Lines 821-827 if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { Link Here
821
## get notes and subjects from MARC record
821
## get notes and subjects from MARC record
822
if (!C4::Context->preference("OPACXSLTDetailsDisplay") ) {
822
if (!C4::Context->preference("OPACXSLTDetailsDisplay") ) {
823
    my $marcisbnsarray   = GetMarcISBN    ($record,$marcflavour);
823
    my $marcisbnsarray   = GetMarcISBN    ($record,$marcflavour);
824
    my $marcauthorsarray = $biblio->get_authors_from_MARC;
824
    my $marcauthorsarray = $biblio->get_marc_authors;
825
    my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour);
825
    my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour);
826
    my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
826
    my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
827
    my $marcurlsarray    = GetMarcUrls    ($record,$marcflavour);
827
    my $marcurlsarray    = GetMarcUrls    ($record,$marcflavour);
(-)a/opac/opac-sendbasket.pl (-1 / +1 lines)
Lines 87-93 if ( $email_add ) { Link Here
87
            embed_items  => 1,
87
            embed_items  => 1,
88
            opac         => 1,
88
            opac         => 1,
89
            borcat       => $borcat });
89
            borcat       => $borcat });
90
        my $marcauthorsarray = $biblio->get_authors_from_MARC;
90
        my $marcauthorsarray = $biblio->get_marc_authors;
91
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
91
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
92
92
93
        my @items = GetItemsInfo( $biblionumber );
93
        my @items = GetItemsInfo( $biblionumber );
(-)a/opac/opac-sendshelf.pl (-1 / +1 lines)
Lines 96-102 if ( $email ) { Link Here
96
        my $fw               = GetFrameworkCode($biblionumber);
96
        my $fw               = GetFrameworkCode($biblionumber);
97
        my $dat              = GetBiblioData($biblionumber);
97
        my $dat              = GetBiblioData($biblionumber);
98
98
99
        my $marcauthorsarray = $biblio->get_authors_from_MARC;
99
        my $marcauthorsarray = $biblio->get_marc_authors;
100
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
100
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
101
101
102
        my @items = GetItemsInfo( $biblionumber );
102
        my @items = GetItemsInfo( $biblionumber );
(-)a/t/db_dependent/Koha/Biblio.t (-2 / +2 lines)
Lines 638-644 subtest 'get_marc_notes() UNIMARC tests' => sub { Link Here
638
    $schema->storage->txn_rollback;
638
    $schema->storage->txn_rollback;
639
};
639
};
640
640
641
subtest 'get_authors_from_MARC() tests' => sub {
641
subtest 'get_marc_authors() tests' => sub {
642
642
643
    plan tests => 1;
643
    plan tests => 1;
644
644
Lines 661-667 subtest 'get_authors_from_MARC() tests' => sub { Link Here
661
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
661
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
662
    $biblio = Koha::Biblios->find( $biblio->biblionumber );
662
    $biblio = Koha::Biblios->find( $biblio->biblionumber );
663
663
664
    is( 4, @{$biblio->get_authors_from_MARC}, 'get_authors_from_MARC retrieves correct number of author subfields' );
664
    is( 4, @{$biblio->get_marc_authors}, 'get_marc_authors retrieves correct number of author subfields' );
665
665
666
    $schema->storage->txn_rollback;
666
    $schema->storage->txn_rollback;
667
};
667
};
(-)a/virtualshelves/sendshelf.pl (-2 / +1 lines)
Lines 78-84 if ($to_address) { Link Here
78
        my $record           = GetMarcBiblio({
78
        my $record           = GetMarcBiblio({
79
            biblionumber => $biblionumber,
79
            biblionumber => $biblionumber,
80
            embed_items  => 1 });
80
            embed_items  => 1 });
81
        my $marcauthorsarray = $biblio->get_authors_from_MARC;
81
        my $marcauthorsarray = $biblio->get_marc_authors;
82
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
82
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
83
83
84
        my @items = GetItemsInfo($biblionumber);
84
        my @items = GetItemsInfo($biblionumber);
85
- 

Return to bug 27266