From 3e16e738dc5aac1a5ae3c432184f246e7621bf77 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 5 Nov 2021 07:57:51 +0000 Subject: [PATCH] Bug 27266: (QA follow-up) Remove GetBiblioData from sendshelf too Content-Type: text/plain; charset=utf-8 Applies to opac and intranet script. Signed-off-by: Marcel de Rooy --- opac/opac-sendshelf.pl | 5 ++--- virtualshelves/sendshelf.pl | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl index aa4eba2187..4b33d8ef97 100755 --- a/opac/opac-sendshelf.pl +++ b/opac/opac-sendshelf.pl @@ -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 ); diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl index acb1a52d1d..06649a9889 100755 --- a/virtualshelves/sendshelf.pl +++ b/virtualshelves/sendshelf.pl @@ -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 }); -- 2.20.1