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