| 
      
            Lines 1630-1635
          overdue charges are applied and C<$dropbox> is true, the last charge
      
      
        Link Here
      
     | 
  
        
          | 1630 | 
          will be removed.  This assumes that the fines accrual script has run  | 
          1630 | 
          will be removed.  This assumes that the fines accrual script has run  | 
        
        
          | 1631 | 
          for _today_.  | 
          1631 | 
          for _today_.  | 
        
        
          | 1632 | 
           | 
          1632 | 
           | 
        
            
               | 
               | 
              1633 | 
              =item C<$return_date> indicates that the check-in date is assumed to be  | 
            
            
              | 1634 | 
              this given date. If overdue charges are applied, the last charges  | 
            
            
              | 1635 | 
              will be based on this return date.  | 
            
            
              | 1636 | 
               | 
            
        
          | 1633 | 
          =back  | 
          1637 | 
          =back  | 
        
        
          | 1634 | 
           | 
          1638 | 
           | 
        
        
          | 1635 | 
          C<&AddReturn> returns a list of four items:  | 
          1639 | 
          C<&AddReturn> returns a list of four items:  | 
        
  
    | 
      
            Lines 1683-1689
          patron who last borrowed the book.
      
      
        Link Here
      
     | 
  
        
          | 1683 | 
          =cut  | 
          1687 | 
          =cut  | 
        
        
          | 1684 | 
           | 
          1688 | 
           | 
        
        
          | 1685 | 
          sub AddReturn { | 
          1689 | 
          sub AddReturn { | 
        
          
            
              | 1686 | 
                  my ( $barcode, $branch, $exemptfine, $dropbox ) = @_;  | 
              1690 | 
                  my ( $barcode, $branch, $exemptfine, $dropbox, $return_date) = @_;  | 
            
        
          | 1687 | 
           | 
          1691 | 
           | 
        
        
          | 1688 | 
              if ($branch and not GetBranchDetail($branch)) { | 
          1692 | 
              if ($branch and not GetBranchDetail($branch)) { | 
        
        
          | 1689 | 
                  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 1780-1786
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1780 | 
                        );  | 
          1784 | 
                        );  | 
        
        
          | 1781 | 
                  }  | 
          1785 | 
                  }  | 
        
        
          | 1782 | 
                      }  | 
          1786 | 
                      }  | 
        
          
            
              | 1783 | 
                          MarkIssueReturned($borrowernumber, $item->{'itemnumber'}, $circControlBranch, '', $borrower->{'privacy'}); | 
              1787 | 
                          MarkIssueReturned($borrowernumber, $item->{'itemnumber'}, $circControlBranch, $return_date, $borrower->{'privacy'}); | 
            
        
          | 1784 | 
                      $messages->{'WasReturned'} = 1;    # FIXME is the "= 1" right?  This could be the borrower hash. | 
          1788 | 
                      $messages->{'WasReturned'} = 1;    # FIXME is the "= 1" right?  This could be the borrower hash. | 
        
        
          | 1785 | 
                  }  | 
          1789 | 
                  }  | 
        
        
          | 1786 | 
           | 
          1790 | 
           |