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

(-)a/C4/Circulation.pm (-2 / +3 lines)
Lines 3101-3110 sub ReturnLostItem{ Link Here
3101
3101
3102
    MarkIssueReturned( $borrowernumber, $itemnum );
3102
    MarkIssueReturned( $borrowernumber, $itemnum );
3103
    my $borrower = C4::Members::GetMember( 'borrowernumber'=>$borrowernumber );
3103
    my $borrower = C4::Members::GetMember( 'borrowernumber'=>$borrowernumber );
3104
    my $item = C4::Items::GetItem( $itemnum );
3105
    my $old_note = ($item->{'paidfor'} && ($item->{'paidfor'} ne q{})) ? $item->{'paidfor'}.' / ' : q{};
3104
    my @datearr = localtime(time);
3106
    my @datearr = localtime(time);
3105
    my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3];
3107
    my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3];
3106
    my $bor = "$borrower->{'firstname'} $borrower->{'surname'} $borrower->{'cardnumber'}";
3108
    my $bor = "$borrower->{'firstname'} $borrower->{'surname'} $borrower->{'cardnumber'}";
3107
    ModItem({ paidfor =>  "Paid for by $bor $date" }, undef, $itemnum);
3109
    ModItem({ paidfor =>  $old_note."Paid for by $bor $date" }, undef, $itemnum);
3108
}
3110
}
3109
3111
3110
3112
3111
- 

Return to bug 8569