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

(-)a/opac/opac-reserve.pl (-8 / +6 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc );
25
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc );
26
use C4::Circulation qw( GetBranchItemRule GetTransfers );
26
use C4::Circulation qw( GetBranchItemRule );
27
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest );
27
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch ItemsAnyAvailableAndNotRestricted IsAvailableForItemLevelRequest );
28
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
28
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
29
use C4::Items qw( GetHostItemsInfo GetItemsInfo );
29
use C4::Items qw( GetHostItemsInfo GetItemsInfo );
Lines 543-554 foreach my $biblioNum (@biblionumbers) { Link Here
543
        }
543
        }
544
544
545
        # Check of the transferred documents
545
        # Check of the transferred documents
546
        my ( $transfertwhen, $transfertfrom, $transfertto ) =
546
        my $transfer = $item->get_transfer;
547
          GetTransfers($itemNum);
547
        if ( $transfer && $transfer->in_transit ) {
548
        if ( $transfertwhen && ($transfertwhen ne '') ) {
548
            $itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 });
549
            $itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 });
549
            $itemLoopIter->{transfertfrom} = $transfer->frombranch;
550
            $itemLoopIter->{transfertfrom} = $transfertfrom;
550
            $itemLoopIter->{transfertto} = $transfer->tobranch;
551
            $itemLoopIter->{transfertto} = $transfertto;
552
            $itemLoopIter->{nocancel} = 1;
551
            $itemLoopIter->{nocancel} = 1;
553
        }
552
        }
554
553
555
- 

Return to bug 24295