View | Details | Raw Unified | Return to bug 18276
Collapse All | Expand All

(-)a/C4/ILSDI/Services.pm (-3 / +7 lines)
Lines 418-432 sub GetPatronInfo { Link Here
418
        foreach my $reserve (@reserves) {
418
        foreach my $reserve (@reserves) {
419
419
420
            # Get additional informations
420
            # Get additional informations
421
            my $item = GetBiblioFromItemNumber( $reserve->{'itemnumber'}, undef );
421
            my $item = Koha::Items->find( $reserve->{itemnumber} );
422
            my $biblio = $item->biblio;
423
            my $biblioitem = $biblio->biblioitem;
422
            my $library = Koha::Libraries->find( $reserve->{branchcode} );
424
            my $library = Koha::Libraries->find( $reserve->{branchcode} );
423
            my $branchname = $library ? $library->branchname : '';
425
            my $branchname = $library ? $library->branchname : '';
424
426
425
            # Remove unwanted fields
427
            # Remove unwanted fields
428
            $item = $item->unblessed;
426
            delete $item->{'more_subfields_xml'};
429
            delete $item->{'more_subfields_xml'};
430
            $biblio = $biblio->unblessed;
431
            $biblioitem = $biblioitem->unblessed;
427
432
428
            # Add additional fields
433
            # Add additional fields
429
            $reserve->{'item'}       = $item;
434
            $reserve->{'item'}       = { %$item, %$biblio, %$biblioitem };
430
            $reserve->{'branchname'} = $branchname;
435
            $reserve->{'branchname'} = $branchname;
431
            $reserve->{'title'}      = GetBiblio( $reserve->{'biblionumber'} )->{'title'};
436
            $reserve->{'title'}      = GetBiblio( $reserve->{'biblionumber'} )->{'title'};
432
        }
437
        }
433
- 

Return to bug 18276