Lines 2458-2465
sub _FixAccountForLostAndReturned {
Link Here
|
2458 |
$accountline->discard_changes->accounttype('LR'); |
2458 |
$accountline->discard_changes->accounttype('LR'); |
2459 |
$accountline->store; |
2459 |
$accountline->store; |
2460 |
|
2460 |
|
2461 |
ModItem( { paidfor => '' }, undef, $itemnumber, { log_action => 0 } ); |
|
|
2462 |
|
2463 |
if ( defined $account and C4::Context->preference('AccountAutoReconcile') ) { |
2461 |
if ( defined $account and C4::Context->preference('AccountAutoReconcile') ) { |
2464 |
$account->reconcile_balance; |
2462 |
$account->reconcile_balance; |
2465 |
} |
2463 |
} |
Lines 3664-3678
sub DeleteBranchTransferLimits {
Link Here
|
3664 |
|
3662 |
|
3665 |
sub ReturnLostItem{ |
3663 |
sub ReturnLostItem{ |
3666 |
my ( $borrowernumber, $itemnum ) = @_; |
3664 |
my ( $borrowernumber, $itemnum ) = @_; |
3667 |
|
|
|
3668 |
MarkIssueReturned( $borrowernumber, $itemnum ); |
3665 |
MarkIssueReturned( $borrowernumber, $itemnum ); |
3669 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
|
|
3670 |
my $item = Koha::Items->find($itemnum); |
3671 |
my $old_note = ($item->paidfor && ($item->paidfor ne q{})) ? $item->paidfor.' / ' : q{}; |
3672 |
my @datearr = localtime(time); |
3673 |
my $date = ( 1900 + $datearr[5] ) . "-" . ( $datearr[4] + 1 ) . "-" . $datearr[3]; |
3674 |
my $bor = $patron->firstname . ' ' . $patron->surname . ' ' . $patron->cardnumber; |
3675 |
ModItem({ paidfor => $old_note."Paid for by $bor $date" }, undef, $itemnum); |
3676 |
} |
3666 |
} |
3677 |
|
3667 |
|
3678 |
|
3668 |
|