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