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 IsAvailableForItemLevelRequest );
27
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch 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 534-545 foreach my $biblioNum (@biblionumbers) { Link Here
534
        }
534
        }
535
535
536
        # Check of the transferred documents
536
        # Check of the transferred documents
537
        my ( $transfertwhen, $transfertfrom, $transfertto ) =
537
        my $transfer = $item->get_transfer;
538
          GetTransfers($itemNum);
538
        if ( $transfer->in_transit ) {
539
        if ( $transfertwhen && ($transfertwhen ne '') ) {
539
            $itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 });
540
            $itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 });
540
            $itemLoopIter->{transfertfrom} = $transfer->frombranch;
541
            $itemLoopIter->{transfertfrom} = $transfertfrom;
541
            $itemLoopIter->{transfertto} = $transfer->tobranch;
542
            $itemLoopIter->{transfertto} = $transfertto;
543
            $itemLoopIter->{nocancel} = 1;
542
            $itemLoopIter->{nocancel} = 1;
544
        }
543
        }
545
544
546
- 

Return to bug 24295