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 <josef.moravec@gmail.com>

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

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm
index d4d8a96..77ac135 100644 (file)
--- 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