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