diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 4eed6b7411..89bb4f8797 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -68,7 +68,6 @@ BEGIN { GetBiblioData GetMarcBiblio GetBiblioItemData - GetBiblioItemInfosOf &GetRecordValue @@ -885,28 +884,6 @@ sub GetISBDView { return $res; } -=head2 GetBiblioItemInfosOf - - GetBiblioItemInfosOf(@biblioitemnumbers); - -=cut - -sub GetBiblioItemInfosOf { - my @biblioitemnumbers = @_; - - my $biblioitemnumber_values = @biblioitemnumbers ? join( ',', @biblioitemnumbers ) : "''"; - - my $dbh = C4::Context->dbh; - my $query = " - SELECT biblioitemnumber, - publicationyear, - itemtype - FROM biblioitems - WHERE biblioitemnumber IN ($biblioitemnumber_values) - "; - return $dbh->selectall_hashref($query, 'biblioitemnumber'); -} - =head1 FUNCTIONS FOR HANDLING MARC MANAGEMENT =head2 IsMarcStructureInternal diff --git a/reserve/request.pl b/reserve/request.pl index d94a8ab6af..f92b2ab86d 100755 --- a/reserve/request.pl +++ b/reserve/request.pl @@ -316,8 +316,16 @@ foreach my $biblionumber (@biblionumbers) { ## Should be same as biblionumber my @biblioitemnumbers = keys %itemnumbers_of_biblioitem; - ## Hash of biblioitemnumber to 'biblioitem' table records - my $biblioiteminfos_of = GetBiblioItemInfosOf(@biblioitemnumbers); + my $biblioiteminfos_of = { + map { + my $biblioitem = $_; + ( $biblioitem->{biblioitemnumber} => $biblioitem ) + } @{ Koha::Biblioitems->search( + { biblioitemnumber => { -in => \@biblioitemnumbers } }, + { select => ['biblioitemnumber', 'publicationyear', 'itemtype']} + )->unblessed + } + }; my $frameworkcode = GetFrameworkCode( $biblionumber ); my @notforloan_avs = Koha::AuthorisedValues->search_by_koha_field({ kohafield => 'items.notforloan', frameworkcode => $frameworkcode });