|
Lines 39-44
use Koha::Holds;
Link Here
|
| 39 |
use Koha::Old::Checkouts; |
39 |
use Koha::Old::Checkouts; |
| 40 |
use Koha::Patron::Attributes; |
40 |
use Koha::Patron::Attributes; |
| 41 |
use Koha::Patron::Categories; |
41 |
use Koha::Patron::Categories; |
|
|
42 |
use Koha::Patron::Debarments; |
| 42 |
use Koha::Patron::HouseboundProfile; |
43 |
use Koha::Patron::HouseboundProfile; |
| 43 |
use Koha::Patron::HouseboundRole; |
44 |
use Koha::Patron::HouseboundRole; |
| 44 |
use Koha::Patron::Images; |
45 |
use Koha::Patron::Images; |
|
Lines 575-580
sub merge_with {
Link Here
|
| 575 |
my $rs = $schema->resultset($r)->search({ $field => $patron_id }); |
576 |
my $rs = $schema->resultset($r)->search({ $field => $patron_id }); |
| 576 |
$results->{merged}->{ $patron_id }->{updated}->{$r} = $rs->count(); |
577 |
$results->{merged}->{ $patron_id }->{updated}->{$r} = $rs->count(); |
| 577 |
$rs->update({ $field => $self->id }); |
578 |
$rs->update({ $field => $self->id }); |
|
|
579 |
if ( $r eq 'BorrowerDebarment' ) { |
| 580 |
Koha::Patron::Debarments::_UpdateBorrowerDebarmentFlags($self->id); |
| 581 |
} |
| 578 |
} |
582 |
} |
| 579 |
|
583 |
|
| 580 |
$patron->move_to_deleted(); |
584 |
$patron->move_to_deleted(); |
| 581 |
- |
|
|