| 
      
            Lines 1687-1693
          patron who last borrowed the book.
      
      
        Link Here
      
     | 
  
        
          | 1687 | 
          =cut  | 
          1687 | 
          =cut  | 
        
        
          | 1688 | 
           | 
          1688 | 
           | 
        
        
          | 1689 | 
          sub AddReturn { | 
          1689 | 
          sub AddReturn { | 
        
          
            
              | 1690 | 
                  my ( $barcode, $branch, $exemptfine, $dropbox ) = @_;  | 
              1690 | 
                  my ( $barcode, $branch, $exemptfine, $dropbox, $return_date ) = @_;  | 
            
        
          | 1691 | 
           | 
          1691 | 
           | 
        
        
          | 1692 | 
              if ($branch and not GetBranchDetail($branch)) { | 
          1692 | 
              if ($branch and not GetBranchDetail($branch)) { | 
        
        
          | 1693 | 
                  warn "AddReturn error: branch '$branch' not found.  Reverting to " . C4::Context->userenv->{'branch'}; | 
          1693 | 
                  warn "AddReturn error: branch '$branch' not found.  Reverting to " . C4::Context->userenv->{'branch'}; | 
        
  
    | 
      
            Lines 1798-1804
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1798 | 
                      }  | 
          1798 | 
                      }  | 
        
        
          | 1799 | 
           | 
          1799 | 
           | 
        
        
          | 1800 | 
                      MarkIssueReturned( $borrowernumber, $item->{'itemnumber'}, | 
          1800 | 
                      MarkIssueReturned( $borrowernumber, $item->{'itemnumber'}, | 
        
          
            
              | 1801 | 
                              $circControlBranch, '', $borrower->{'privacy'} ); | 
              1801 | 
                              $circControlBranch, $return_date, $borrower->{'privacy'} ); | 
            
        
          | 1802 | 
           | 
          1802 | 
           | 
        
        
          | 1803 | 
                      # FIXME is the "= 1" right?  This could be the borrower hash.  | 
          1803 | 
                      # FIXME is the "= 1" right?  This could be the borrower hash.  | 
        
        
          | 1804 | 
                      $messages->{'WasReturned'} = 1; | 
          1804 | 
                      $messages->{'WasReturned'} = 1; |