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

(-)a/C4/Circulation.pm (-8 / +10 lines)
Lines 3663-3678 sub DeleteBranchTransferLimits { Link Here
3663
}
3663
}
3664
3664
3665
sub ReturnLostItem{
3665
sub ReturnLostItem{
3666
    my ( $borrowernumber, $itemnum ) = @_;
3666
    my ( $borrowernumber, $itemnum, $offset_type ) = @_;
3667
3667
3668
    MarkIssueReturned( $borrowernumber, $itemnum );
3668
    MarkIssueReturned( $borrowernumber, $itemnum );
3669
    my $patron = Koha::Patrons->find( $borrowernumber );
3669
    if ( $offset_type ne 'Writeoff' ) {
3670
    my $item = Koha::Items->find($itemnum);
3670
        my $patron = Koha::Patrons->find( $borrowernumber );
3671
    my $old_note = ($item->paidfor && ($item->paidfor ne q{})) ? $item->paidfor.' / ' : q{};
3671
        my $item = Koha::Items->find($itemnum);
3672
    my @datearr = localtime(time);
3672
        my $old_note = ($item->paidfor && ($item->paidfor ne q{})) ? $item->paidfor.' / ' : q{};
3673
    my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3];
3673
        my @datearr = localtime(time);
3674
    my $bor = $patron->firstname . ' ' . $patron->surname . ' ' . $patron->cardnumber;
3674
        my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3];
3675
    ModItem({ paidfor =>  $old_note."Paid for by $bor $date" }, undef, $itemnum);
3675
        my $bor = $patron->firstname . ' ' . $patron->surname . ' ' . $patron->cardnumber;
3676
        ModItem({ paidfor =>  $old_note."Paid for by $bor $date" }, undef, $itemnum);
3677
    }
3676
}
3678
}
3677
3679
3678
3680
(-)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 'L' ) )
111
        if ( $fine->itemnumber && $fine->accounttype && ( $fine->accounttype eq 'L' ) )
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