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 |
- |
|
|