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

(-)a/opac/opac-sendshelf.pl (-3 / +2 lines)
Lines 26-32 use Try::Tiny qw( catch try ); Link Here
26
26
27
use C4::Auth qw( get_template_and_user );
27
use C4::Auth qw( get_template_and_user );
28
use C4::Biblio qw(
28
use C4::Biblio qw(
29
    GetBiblioData
30
    GetFrameworkCode
29
    GetFrameworkCode
31
    GetMarcBiblio
30
    GetMarcBiblio
32
    GetMarcISBN
31
    GetMarcISBN
Lines 84-98 if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) { Link Here
84
83
85
    while ( my $content = $contents->next ) {
84
    while ( my $content = $contents->next ) {
86
        my $biblionumber = $content->biblionumber;
85
        my $biblionumber = $content->biblionumber;
86
        my $biblio       = Koha::Biblios->find( $biblionumber ) or next;
87
        my $dat          = $biblio->unblessed;
87
        my $record           = GetMarcBiblio({
88
        my $record           = GetMarcBiblio({
88
            biblionumber => $biblionumber,
89
            biblionumber => $biblionumber,
89
            embed_items  => 1,
90
            embed_items  => 1,
90
            opac         => 1,
91
            opac         => 1,
91
            borcat       => $borcat });
92
            borcat       => $borcat });
92
        next unless $record;
93
        next unless $record;
93
        my $biblio           = Koha::Biblios->find( $biblionumber );
94
        my $fw               = GetFrameworkCode($biblionumber);
94
        my $fw               = GetFrameworkCode($biblionumber);
95
        my $dat              = GetBiblioData($biblionumber);
96
95
97
        my $marcauthorsarray = $biblio->get_marc_authors;
96
        my $marcauthorsarray = $biblio->get_marc_authors;
98
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
97
        my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
(-)a/virtualshelves/sendshelf.pl (-4 / +2 lines)
Lines 26-32 use Try::Tiny qw( catch try ); Link Here
26
26
27
use C4::Auth qw( get_template_and_user );
27
use C4::Auth qw( get_template_and_user );
28
use C4::Biblio qw(
28
use C4::Biblio qw(
29
    GetBiblioData
30
    GetMarcBiblio
29
    GetMarcBiblio
31
    GetMarcISBN
30
    GetMarcISBN
32
    GetMarcSubjects
31
    GetMarcSubjects
Lines 72-79 if ($to_address) { Link Here
72
71
73
    while ( my $content = $contents->next ) {
72
    while ( my $content = $contents->next ) {
74
        my $biblionumber     = $content->biblionumber;
73
        my $biblionumber     = $content->biblionumber;
75
        my $biblio           = Koha::Biblios->find( $biblionumber );
74
        my $biblio           = Koha::Biblios->find( $biblionumber ) or next;
76
        my $dat              = GetBiblioData($biblionumber);
75
        my $dat              = $biblio->unblessed;
77
        my $record           = GetMarcBiblio({
76
        my $record           = GetMarcBiblio({
78
            biblionumber => $biblionumber,
77
            biblionumber => $biblionumber,
79
            embed_items  => 1 });
78
            embed_items  => 1 });
80
- 

Return to bug 27266