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

(-)a/Koha/Biblio.pm (-3 / +3 lines)
Lines 842-857 sub get_marc_notes { Link Here
842
    return \@marcnotes;
842
    return \@marcnotes;
843
}
843
}
844
844
845
=head3 get_authors_from_MARC
845
=head3 get_marc_authors
846
846
847
    my $authors = $biblio->get_authors_from_MARC;
847
    my $authors = $biblio->get_marc_authors;
848
848
849
Get all authors from the MARC record and returns them in an array.
849
Get all authors from the MARC record and returns them in an array.
850
The authors are stored in different fields depending on MARC flavour
850
The authors are stored in different fields depending on MARC flavour
851
851
852
=cut
852
=cut
853
853
854
sub get_authors_from_MARC {
854
sub get_marc_authors {
855
    my ( $self, $params ) = @_;
855
    my ( $self, $params ) = @_;
856
856
857
    my ( $mintag, $maxtag, $fields_filter );
857
    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 785-791 if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { Link Here
785
}
785
}
786
786
787
my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour, opac => 1 });
787
my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour, opac => 1 });
788
my $marcauthorsarray = $biblio->get_authors_from_MARC;
788
my $marcauthorsarray = $biblio->get_marc_authors;
789
789
790
if( C4::Context->preference('ArticleRequests') ) {
790
if( C4::Context->preference('ArticleRequests') ) {
791
    my $patron = $borrowernumber ? Koha::Patrons->find($borrowernumber) : undef;
791
    my $patron = $borrowernumber ? Koha::Patrons->find($borrowernumber) : undef;
(-)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 737-743 subtest 'article_requests() tests' => sub { Link Here
737
    $schema->storage->txn_rollback;
737
    $schema->storage->txn_rollback;
738
};
738
};
739
739
740
subtest 'get_authors_from_MARC() tests' => sub {
740
subtest 'get_marc_authors() tests' => sub {
741
741
742
    plan tests => 1;
742
    plan tests => 1;
743
743
Lines 760-766 subtest 'get_authors_from_MARC() tests' => sub { Link Here
760
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
760
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
761
    $biblio = Koha::Biblios->find( $biblio->biblionumber );
761
    $biblio = Koha::Biblios->find( $biblio->biblionumber );
762
762
763
    is( 4, @{$biblio->get_authors_from_MARC}, 'get_authors_from_MARC retrieves correct number of author subfields' );
763
    is( 4, @{$biblio->get_marc_authors}, 'get_marc_authors retrieves correct number of author subfields' );
764
764
765
    $schema->storage->txn_rollback;
765
    $schema->storage->txn_rollback;
766
};
766
};
(-)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