View | Details | Raw Unified | Return to bug 35840
Collapse All | Expand All

(-)a/C4/Circulation.pm (-4 / +3 lines)
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
- 

Return to bug 35840