| Lines 319-325
          sub transferbook {
      
      
        Link Here | 
        
          | 319 |     } | 319 |     } | 
        
          | 320 |  | 320 |  | 
        
          | 321 |     my $itemnumber = $item->itemnumber; | 321 |     my $itemnumber = $item->itemnumber; | 
            
              | 322 |     my $issue = GetOpenIssue($itemnumber); |  |  | 
        
          | 323 |     # get branches of book... | 322 |     # get branches of book... | 
        
          | 324 |     my $hbr = $item->homebranch; | 323 |     my $hbr = $item->homebranch; | 
        
          | 325 |     my $fbr = $item->holdingbranch; | 324 |     my $fbr = $item->holdingbranch; | 
  
    | Lines 345-350
          sub transferbook {
      
      
        Link Here | 
        
          | 345 |     } | 344 |     } | 
        
          | 346 |  | 345 |  | 
        
          | 347 |     # check if it is still issued to someone, return it... | 346 |     # check if it is still issued to someone, return it... | 
            
              |  |  | 347 |     my $issue = Koha::Checkouts->find({ itemnumber => $itemnumber }); | 
        
          | 348 |     if ( $issue ) { | 348 |     if ( $issue ) { | 
        
          | 349 |         AddReturn( $barcode, $fbr ); | 349 |         AddReturn( $barcode, $fbr ); | 
        
          | 350 |         $messages->{'WasReturned'} = $issue->borrowernumber; | 350 |         $messages->{'WasReturned'} = $issue->borrowernumber; | 
            
              | 351 | -  |  |  |