From bafef273577c4513a6929265d7408fe567afa6f1 Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Thu, 1 Oct 2020 14:19:05 +0200 Subject: [PATCH] Bug 26594: Fix patrons merge problem with restrictions When merging a patron A with restriction(s) into an other patron B, the entries of borrower_debarments are OK but the value of borrowers.debarred for patron B need to be updated. An effect of this strange storage of restrictions in both places. Test plan : 1) Create a patron A with a manual restriction with some date and comment 2) Create a patron B with no restriction 3) Merge patron A and B, keeping patron B 4) Look at patron B details page => Without patch you see no restriction => With patch you see the restriction from patron A Signed-off-by: David Nind Signed-off-by: Katrin Fischer Signed-off-by: Kyle M Hall Signed-off-by: Jonathan Druart (cherry picked from commit bd66a2e175e062b662652f81efcafb48b6d230d7) --- Koha/Patron.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 42bd0886e5..5b0cc0041c 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -39,6 +39,7 @@ use Koha::Holds; use Koha::Old::Checkouts; use Koha::Patron::Attributes; use Koha::Patron::Categories; +use Koha::Patron::Debarments; use Koha::Patron::HouseboundProfile; use Koha::Patron::HouseboundRole; use Koha::Patron::Images; @@ -575,6 +576,9 @@ sub merge_with { my $rs = $schema->resultset($r)->search({ $field => $patron_id }); $results->{merged}->{ $patron_id }->{updated}->{$r} = $rs->count(); $rs->update({ $field => $self->id }); + if ( $r eq 'BorrowerDebarment' ) { + Koha::Patron::Debarments::_UpdateBorrowerDebarmentFlags($self->id); + } } $patron->move_to_deleted(); -- 2.39.5