Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 27266: (QA follow-up) Remove GetBiblioData from sendshelf too

Browse source 
Applies to opac and intranet script.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Marcel de Rooy 2021-11-05 07:57:51 +00:00 committed by Fridolin Somers
parent b3dc62180b
commit 1573424236
2 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
opac/opac-sendshelf.pl
View file

@ -26,7 +26,6 @@ use Try::Tiny qw( catch try );
use C4::Auth qw( get_template_and_user );
use C4::Biblio qw(
GetBiblioData
GetFrameworkCode
GetMarcBiblio
GetMarcISBN
@ -84,15 +83,15 @@ if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
while ( my $content = $contents->next ) {
my $biblionumber = $content->biblionumber;
my $biblio = Koha::Biblios->find( $biblionumber ) or next;
my $dat = $biblio->unblessed;
my $record = GetMarcBiblio({
biblionumber => $biblionumber,
embed_items => 1,
opac => 1,
borcat => $borcat });
next unless $record;
my $biblio = Koha::Biblios->find( $biblionumber );
my $fw = GetFrameworkCode($biblionumber);
my $dat = GetBiblioData($biblionumber);
my $marcauthorsarray = $biblio->get_marc_authors;
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );

5
virtualshelves/sendshelf.pl
View file

@ -26,7 +26,6 @@ use Try::Tiny qw( catch try );
use C4::Auth qw( get_template_and_user );
use C4::Biblio qw(
GetBiblioData
GetMarcBiblio
GetMarcISBN
GetMarcSubjects
@ -72,8 +71,8 @@ if ($to_address) {
while ( my $content = $contents->next ) {
my $biblionumber = $content->biblionumber;
my $biblio = Koha::Biblios->find( $biblionumber );
my $dat = GetBiblioData($biblionumber);
my $biblio = Koha::Biblios->find( $biblionumber ) or next;
my $dat = $biblio->unblessed;
my $record = GetMarcBiblio({
biblionumber => $biblionumber,
embed_items => 1 });