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