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 622-627
sub merge_with {
Link Here
|
622 |
my $rs = $schema->resultset($r)->search({ $field => $patron_id }); |
623 |
my $rs = $schema->resultset($r)->search({ $field => $patron_id }); |
623 |
$results->{merged}->{ $patron_id }->{updated}->{$r} = $rs->count(); |
624 |
$results->{merged}->{ $patron_id }->{updated}->{$r} = $rs->count(); |
624 |
$rs->update({ $field => $self->id }); |
625 |
$rs->update({ $field => $self->id }); |
|
|
626 |
if ( $r eq 'BorrowerDebarment' ) { |
627 |
Koha::Patron::Debarments::_UpdateBorrowerDebarmentFlags($self->id); |
628 |
} |
625 |
} |
629 |
} |
626 |
|
630 |
|
627 |
$patron->move_to_deleted(); |
631 |
$patron->move_to_deleted(); |
628 |
- |
|
|