From b2e305b10b3ee0545799c2f752b4483cb3373970 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 Signed-off-by: Josef Moravec Signed-off-by: Marcel de Rooy Signed-off-by: Jonathan Druart --- 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 d4d8a96261..77ac135c5b 100644 --- a/C4/ILSDI/Services.pm +++ b/C4/ILSDI/Services.pm @@ -423,15 +423,20 @@ sub GetPatronInfo { my $unblessed_hold = $hold->unblessed; # Get additional informations - my $item = GetBiblioFromItemNumber( $hold->itemnumber, undef ); + my $item = Koha::Items->find( $hold->itemnumber ); + my $biblio = $item->biblio; + my $biblioitem = $biblio->biblioitem; my $library = Koha::Libraries->find( $hold->branchcode ); # Should $hold->get_library 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 - $unblessed_hold->{item} = $item; + $unblessed_hold->{item} = { %$item, %$biblio, %$biblioitem }; $unblessed_hold->{branchname} = $branchname; $unblessed_hold->{title} = GetBiblio( $hold->biblionumber )->{'title'}; # Should be $hold->get_biblio -- 2.39.5