Lines 1615-1621
sub GetBranchItemRule {
Link Here
|
1615 |
=head2 AddReturn |
1615 |
=head2 AddReturn |
1616 |
|
1616 |
|
1617 |
($doreturn, $messages, $iteminformation, $borrower) = |
1617 |
($doreturn, $messages, $iteminformation, $borrower) = |
1618 |
&AddReturn($barcode, $branch, $exemptfine, $dropbox); |
1618 |
&AddReturn($barcode, $branch, $exemptfine, $dropbox, $returndate); |
1619 |
|
1619 |
|
1620 |
Returns a book. |
1620 |
Returns a book. |
1621 |
|
1621 |
|
Lines 1634-1639
overdue charges are applied and C<$dropbox> is true, the last charge
Link Here
|
1634 |
will be removed. This assumes that the fines accrual script has run |
1634 |
will be removed. This assumes that the fines accrual script has run |
1635 |
for _today_. |
1635 |
for _today_. |
1636 |
|
1636 |
|
|
|
1637 |
=item C<$return_date> allows the default return date to be overridden |
1638 |
by the given return date. |
1639 |
|
1637 |
=back |
1640 |
=back |
1638 |
|
1641 |
|
1639 |
C<&AddReturn> returns a list of four items: |
1642 |
C<&AddReturn> returns a list of four items: |
Lines 1687-1693
patron who last borrowed the book.
Link Here
|
1687 |
=cut |
1690 |
=cut |
1688 |
|
1691 |
|
1689 |
sub AddReturn { |
1692 |
sub AddReturn { |
1690 |
my ( $barcode, $branch, $exemptfine, $dropbox ) = @_; |
1693 |
my ( $barcode, $branch, $exemptfine, $dropbox, $return_date ) = @_; |
1691 |
|
1694 |
|
1692 |
if ($branch and not GetBranchDetail($branch)) { |
1695 |
if ($branch and not GetBranchDetail($branch)) { |
1693 |
warn "AddReturn error: branch '$branch' not found. Reverting to " . C4::Context->userenv->{'branch'}; |
1696 |
warn "AddReturn error: branch '$branch' not found. Reverting to " . C4::Context->userenv->{'branch'}; |
Lines 1798-1804
sub AddReturn {
Link Here
|
1798 |
} |
1801 |
} |
1799 |
|
1802 |
|
1800 |
MarkIssueReturned( $borrowernumber, $item->{'itemnumber'}, |
1803 |
MarkIssueReturned( $borrowernumber, $item->{'itemnumber'}, |
1801 |
$circControlBranch, '', $borrower->{'privacy'} ); |
1804 |
$circControlBranch, $return_date, $borrower->{'privacy'} ); |
1802 |
|
1805 |
|
1803 |
# FIXME is the "= 1" right? This could be the borrower hash. |
1806 |
# FIXME is the "= 1" right? This could be the borrower hash. |
1804 |
$messages->{'WasReturned'} = 1; |
1807 |
$messages->{'WasReturned'} = 1; |