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

(-)a/opac/opac-reserve.pl (-8 / +6 lines)
Lines 24-30 use Modern::Perl; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc );
26
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc );
27
use C4::Circulation qw( GetBranchItemRule GetTransfers );
27
use C4::Circulation qw( GetBranchItemRule );
28
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest );
28
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest );
29
use C4::Biblio qw( GetBiblioData GetFrameworkCode );
29
use C4::Biblio qw( GetBiblioData GetFrameworkCode );
30
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
Lines 481-492 foreach my $biblioNum (@biblionumbers) { Link Here
481
        $item_info->{checkout} = $item->checkout;
481
        $item_info->{checkout} = $item->checkout;
482
482
483
        # Check of the transferred documents
483
        # Check of the transferred documents
484
        my ( $transfertwhen, $transfertfrom, $transfertto ) =
484
        my $transfer = $item->get_transfer;
485
          GetTransfers($item->itemnumber);
485
        if ( $transfer && $transfer->in_transit ) {
486
        if ( $transfertwhen && ($transfertwhen ne '') ) {
486
            $item_info->{transfertwhen} = $transfer->datesent;
487
            $item_info->{transfertwhen} = $transfertwhen;
487
            $item_info->{transfertfrom} = $transfer->frombranch;
488
            $item_info->{transfertfrom} = $transfertfrom;
488
            $item_info->{transfertto} = $transfer->tobranch;
489
            $item_info->{transfertto} = $transfertto;
490
            $item_info->{nocancel} = 1;
489
            $item_info->{nocancel} = 1;
491
        }
490
        }
492
491
493
- 

Return to bug 24295