|
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 ); |