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

(-)a/Koha/Biblio.pm (-3 / +3 lines)
Lines 966-981 sub get_marc_notes { Link Here
966
    return \@marcnotes;
966
    return \@marcnotes;
967
}
967
}
968
968
969
=head3 get_authors_from_MARC
969
=head3 get_marc_authors
970
970
971
    my $authors = $biblio->get_authors_from_MARC;
971
    my $authors = $biblio->get_marc_authors;
972
972
973
Get all authors from the MARC record and returns them in an array.
973
Get all authors from the MARC record and returns them in an array.
974
The authors are stored in different fields depending on MARC flavour
974
The authors are stored in different fields depending on MARC flavour
975
975
976
=cut
976
=cut
977
977
978
sub get_authors_from_MARC {
978
sub get_marc_authors {
979
    my ( $self, $params ) = @_;
979
    my ( $self, $params ) = @_;
980
980
981
    my ( $mintag, $maxtag, $fields_filter );
981
    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 784-790 if (scalar(@itemloop) == 0 || scalar(@otheritemloop) == 0) { Link Here
784
}
784
}
785
785
786
my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour, opac => 1 });
786
my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour, opac => 1 });
787
my $marcauthorsarray = $biblio->get_authors_from_MARC;
787
my $marcauthorsarray = $biblio->get_marc_authors;
788
788
789
if( C4::Context->preference('ArticleRequests') ) {
789
if( C4::Context->preference('ArticleRequests') ) {
790
    my $patron = $borrowernumber ? Koha::Patrons->find($borrowernumber) : undef;
790
    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 859-865 subtest 'current_checkouts() and old_checkouts() tests' => sub { Link Here
859
    $schema->storage->txn_rollback;
859
    $schema->storage->txn_rollback;
860
};
860
};
861
861
862
subtest 'get_authors_from_MARC() tests' => sub {
862
subtest 'get_marc_authors() tests' => sub {
863
863
864
    plan tests => 1;
864
    plan tests => 1;
865
865
Lines 882-888 subtest 'get_authors_from_MARC() tests' => sub { Link Here
882
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
882
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
883
    $biblio = Koha::Biblios->find( $biblio->biblionumber );
883
    $biblio = Koha::Biblios->find( $biblio->biblionumber );
884
884
885
    is( 4, @{$biblio->get_authors_from_MARC}, 'get_authors_from_MARC retrieves correct number of author subfields' );
885
    is( 4, @{$biblio->get_marc_authors}, 'get_marc_authors retrieves correct number of author subfields' );
886
886
887
    $schema->storage->txn_rollback;
887
    $schema->storage->txn_rollback;
888
};
888
};
(-)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