From c789d51de79991b294dda72100eba902186317a4 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 15 Mar 2017 10:41:29 -0300 Subject: [PATCH] Bug 18276: Remove GetBiblioFromItemNumber - ILSDI Test plan: Hit /cgi-bin/koha/ilsdi.pl?service=GetPatronInfo&patron_id=51&show_holds=1 The results should be the same before and after this patch --- C4/ILSDI/Services.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index b735d38..5216a99 100644 --- a/C4/ILSDI/Services.pm +++ b/C4/ILSDI/Services.pm @@ -416,15 +416,20 @@ sub GetPatronInfo { foreach my $reserve (@reserves) { # Get additional informations - my $item = GetBiblioFromItemNumber( $reserve->{'itemnumber'}, undef ); + my $item = Koha::Items->find( $reserve->{itemnumber} ); + my $biblio = $item->biblio; + my $biblioitem = $biblio->biblioitem; my $library = Koha::Libraries->find( $reserve->{branchcode} ); my $branchname = $library ? $library->branchname : ''; # Remove unwanted fields + $item = $item->unblessed; delete $item->{'more_subfields_xml'}; + $biblio = $biblio->unblessed; + $biblioitem = $biblioitem->unblessed; # Add additional fields - $reserve->{'item'} = $item; + $reserve->{'item'} = { %$item, %$biblio, %$biblioitem }; $reserve->{'branchname'} = $branchname; $reserve->{'title'} = GetBiblio( $reserve->{'biblionumber'} )->{'title'}; } -- 2.9.3