|
Lines 836-842
sub CanBookBeIssued {
Link Here
|
| 836 |
); |
836 |
); |
| 837 |
my $block_lost_return = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
837 |
my $block_lost_return = C4::Context->preference("BlockReturnOfLostItems") ? 1 : 0; |
| 838 |
my ( $stats_return, $stats_messages, $stats_iteminformation, $stats_borrower ) = |
838 |
my ( $stats_return, $stats_messages, $stats_iteminformation, $stats_borrower ) = |
| 839 |
AddReturn( $item_object->barcode, C4::Context->userenv->{'branch'} ); |
839 |
AddReturn( $item_object->barcode, C4::Context->userenv->{'branch'}, undef, undef, 1 ); |
| 840 |
ModDateLastSeen( $item_object->itemnumber, $block_lost_return ); # FIXME Move to Koha::Item |
840 |
ModDateLastSeen( $item_object->itemnumber, $block_lost_return ); # FIXME Move to Koha::Item |
| 841 |
return ( |
841 |
return ( |
| 842 |
{ |
842 |
{ |
|
Lines 2130-2136
patron who last borrowed the book.
Link Here
|
| 2130 |
=cut |
2130 |
=cut |
| 2131 |
|
2131 |
|
| 2132 |
sub AddReturn { |
2132 |
sub AddReturn { |
| 2133 |
my ( $barcode, $branch, $exemptfine, $return_date ) = @_; |
2133 |
my ( $barcode, $branch, $exemptfine, $return_date, $localuse ) = @_; |
| 2134 |
|
2134 |
|
| 2135 |
if ($branch and not Koha::Libraries->find($branch)) { |
2135 |
if ($branch and not Koha::Libraries->find($branch)) { |
| 2136 |
warn "AddReturn error: branch '$branch' not found. Reverting to " . C4::Context->userenv->{'branch'}; |
2136 |
warn "AddReturn error: branch '$branch' not found. Reverting to " . C4::Context->userenv->{'branch'}; |
|
Lines 2473-2479
sub AddReturn {
Link Here
|
| 2473 |
ccode => $item->ccode, |
2473 |
ccode => $item->ccode, |
| 2474 |
categorycode => $categorycode, |
2474 |
categorycode => $categorycode, |
| 2475 |
interface => C4::Context->interface, |
2475 |
interface => C4::Context->interface, |
| 2476 |
}); |
2476 |
}) unless $localuse; |
| 2477 |
|
2477 |
|
| 2478 |
# Send a check-in slip. # NOTE: borrower may be undef. Do not try to send messages then. |
2478 |
# Send a check-in slip. # NOTE: borrower may be undef. Do not try to send messages then. |
| 2479 |
if ( $patron ) { |
2479 |
if ( $patron ) { |
| 2480 |
- |
|
|