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

(-)a/C4/Circulation.pm (-8 / +10 lines)
Lines 3668-3683 sub DeleteBranchTransferLimits { Link Here
3668
}
3668
}
3669
3669
3670
sub ReturnLostItem{
3670
sub ReturnLostItem{
3671
    my ( $borrowernumber, $itemnum ) = @_;
3671
    my ( $borrowernumber, $itemnum, $offset_type ) = @_;
3672
3672
3673
    MarkIssueReturned( $borrowernumber, $itemnum );
3673
    MarkIssueReturned( $borrowernumber, $itemnum );
3674
    my $patron = Koha::Patrons->find( $borrowernumber );
3674
    if ( $offset_type ne 'Writeoff' ) {
3675
    my $item = Koha::Items->find($itemnum);
3675
        my $patron = Koha::Patrons->find( $borrowernumber );
3676
    my $old_note = ($item->paidfor && ($item->paidfor ne q{})) ? $item->paidfor.' / ' : q{};
3676
        my $item = Koha::Items->find($itemnum);
3677
    my @datearr = localtime(time);
3677
        my $old_note = ($item->paidfor && ($item->paidfor ne q{})) ? $item->paidfor.' / ' : q{};
3678
    my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3];
3678
        my @datearr = localtime(time);
3679
    my $bor = $patron->firstname . ' ' . $patron->surname . ' ' . $patron->cardnumber;
3679
        my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3];
3680
    ModItem({ paidfor =>  $old_note."Paid for by $bor $date" }, undef, $itemnum);
3680
        my $bor = $patron->firstname . ' ' . $patron->surname . ' ' . $patron->cardnumber;
3681
        ModItem({ paidfor =>  $old_note."Paid for by $bor $date" }, undef, $itemnum);
3682
    }
3681
}
3683
}
3682
3684
3683
3685
(-)a/Koha/Account.pm (-2 / +1 lines)
Lines 110-116 sub pay { Link Here
110
110
111
        if ( $fine->itemnumber && $fine->accounttype && ( $fine->accounttype eq 'LOST' ) )
111
        if ( $fine->itemnumber && $fine->accounttype && ( $fine->accounttype eq 'LOST' ) )
112
        {
112
        {
113
            C4::Circulation::ReturnLostItem( $self->{patron_id}, $fine->itemnumber );
113
            C4::Circulation::ReturnLostItem( $self->{patron_id}, $fine->itemnumber, $offset_type );
114
        }
114
        }
115
115
116
        my $account_offset = Koha::Account::Offset->new(
116
        my $account_offset = Koha::Account::Offset->new(
117
- 

Return to bug 19919