| 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 | -  |  |  |