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

(-)a/basket/basket.pl (-4 / +2 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Koha;
21
use C4::Koha;
22
use C4::Biblio qw(
22
use C4::Biblio qw(
23
    GetBiblioData
24
    GetMarcBiblio
23
    GetMarcBiblio
25
    GetMarcSeries
24
    GetMarcSeries
26
    GetMarcSubjects
25
    GetMarcSubjects
Lines 66-74 if (C4::Context->preference('TagsEnabled')) { Link Here
66
foreach my $biblionumber ( @bibs ) {
65
foreach my $biblionumber ( @bibs ) {
67
    $template->param( biblionumber => $biblionumber );
66
    $template->param( biblionumber => $biblionumber );
68
67
69
    my $dat              = &GetBiblioData($biblionumber);
68
    my $biblio           = Koha::Biblios->find( $biblionumber ) or next;
70
    next unless $dat;
69
    my $dat              = $biblio->unblessed;
71
    my $biblio           = Koha::Biblios->find( $biblionumber );
72
    my $record           = &GetMarcBiblio({ biblionumber => $biblionumber });
70
    my $record           = &GetMarcBiblio({ biblionumber => $biblionumber });
73
    my $marcnotesarray   = $biblio->get_marc_notes({ marcflavour => $marcflavour });
71
    my $marcnotesarray   = $biblio->get_marc_notes({ marcflavour => $marcflavour });
74
    my $marcauthorsarray = $biblio->get_marc_authors;
72
    my $marcauthorsarray = $biblio->get_marc_authors;
(-)a/basket/sendbasket.pl (-4 / +2 lines)
Lines 23-29 use Carp qw( carp ); Link Here
23
use Try::Tiny qw( catch try );
23
use Try::Tiny qw( catch try );
24
24
25
use C4::Biblio qw(
25
use C4::Biblio qw(
26
    GetBiblioData
27
    GetMarcBiblio
26
    GetMarcBiblio
28
    GetMarcSubjects
27
    GetMarcSubjects
29
);
28
);
Lines 71-79 if ( $email_add ) { Link Here
71
    foreach my $biblionumber (@bibs) {
70
    foreach my $biblionumber (@bibs) {
72
        $template2->param( biblionumber => $biblionumber );
71
        $template2->param( biblionumber => $biblionumber );
73
72
74
        my $dat              = GetBiblioData($biblionumber);
73
        my $biblio           = Koha::Biblios->find( $biblionumber ) or next;
75
        next unless $dat;
74
        my $dat              = $biblio->unblessed;
76
        my $biblio           = Koha::Biblios->find( $biblionumber );
77
        my $record           = GetMarcBiblio({
75
        my $record           = GetMarcBiblio({
78
            biblionumber => $biblionumber,
76
            biblionumber => $biblionumber,
79
            embed_items => 1 });
77
            embed_items => 1 });
(-)a/opac/opac-basket.pl (-4 / +2 lines)
Lines 21-27 use CGI qw ( -utf8 ); Link Here
21
21
22
use C4::Koha;
22
use C4::Koha;
23
use C4::Biblio qw(
23
use C4::Biblio qw(
24
    GetBiblioData
25
    GetFrameworkCode
24
    GetFrameworkCode
26
    GetMarcBiblio
25
    GetMarcBiblio
27
    GetMarcSeries
26
    GetMarcSeries
Lines 78-86 my $rules = C4::Context->yaml_preference('OpacHiddenItems'); Link Here
78
foreach my $biblionumber ( @bibs ) {
77
foreach my $biblionumber ( @bibs ) {
79
    $template->param( biblionumber => $biblionumber );
78
    $template->param( biblionumber => $biblionumber );
80
79
81
    my $dat              = &GetBiblioData($biblionumber);
80
    my $biblio           = Koha::Biblios->find( $biblionumber ) or next;
82
    next unless $dat;
81
    my $dat              = $biblio->unblessed;
83
    my $biblio           = Koha::Biblios->find( $biblionumber );
84
82
85
    # No filtering on the item records needed for the record itself
83
    # No filtering on the item records needed for the record itself
86
    # since the only reason item information is grabbed is because of branchcodes.
84
    # since the only reason item information is grabbed is because of branchcodes.
(-)a/opac/opac-sendbasket.pl (-5 / +2 lines)
Lines 25-31 use Carp qw( carp ); Link Here
25
use Try::Tiny qw( catch try );
25
use Try::Tiny qw( catch try );
26
26
27
use C4::Biblio qw(
27
use C4::Biblio qw(
28
    GetBiblioData
29
    GetMarcBiblio
28
    GetMarcBiblio
30
    GetMarcSubjects
29
    GetMarcSubjects
31
);
30
);
Lines 78-86 if ( $email_add ) { Link Here
78
    foreach my $biblionumber (@bibs) {
77
    foreach my $biblionumber (@bibs) {
79
        $template2->param( biblionumber => $biblionumber );
78
        $template2->param( biblionumber => $biblionumber );
80
79
81
        my $dat              = GetBiblioData($biblionumber);
80
        my $biblio           = Koha::Biblios->find( $biblionumber ) or next;
82
        next unless $dat;
81
        my $dat              = $biblio->unblessed;
83
        my $biblio           = Koha::Biblios->find( $biblionumber );
84
        my $record           = GetMarcBiblio({
82
        my $record           = GetMarcBiblio({
85
            biblionumber => $biblionumber,
83
            biblionumber => $biblionumber,
86
            embed_items  => 1,
84
            embed_items  => 1,
87
- 

Return to bug 27266