View | Details | Raw Unified | Return to bug 26594
Collapse All | Expand All

(-)a/Koha/Patron.pm (-1 / +1 lines)
Lines 624-630 sub merge_with { Link Here
624
                $results->{merged}->{ $patron_id }->{updated}->{$r} = $rs->count();
624
                $results->{merged}->{ $patron_id }->{updated}->{$r} = $rs->count();
625
                $rs->update({ $field => $self->id });
625
                $rs->update({ $field => $self->id });
626
                if ( $r eq 'BorrowerDebarment' ) {
626
                if ( $r eq 'BorrowerDebarment' ) {
627
                    Koha::Patron::Debarments::_UpdateBorrowerDebarmentFlags($self->id);
627
                    Koha::Patron::Debarments::UpdateBorrowerDebarmentFlags($self->id);
628
                }
628
                }
629
            }
629
            }
630
630
(-)a/Koha/Patron/Debarments.pm (-8 / +7 lines)
Lines 98-104 sub AddDebarment { Link Here
98
98
99
    my $r = C4::Context->dbh->do( $sql, {}, ( $borrowernumber, $expiration, $type, $comment, $manager_id ) );
99
    my $r = C4::Context->dbh->do( $sql, {}, ( $borrowernumber, $expiration, $type, $comment, $manager_id ) );
100
100
101
    _UpdateBorrowerDebarmentFlags($borrowernumber);
101
    UpdateBorrowerDebarmentFlags($borrowernumber);
102
102
103
    return $r;
103
    return $r;
104
}
104
}
Lines 120-126 sub DelDebarment { Link Here
120
120
121
    my $r = C4::Context->dbh->do( $sql, {}, ($id) );
121
    my $r = C4::Context->dbh->do( $sql, {}, ($id) );
122
122
123
    _UpdateBorrowerDebarmentFlags($borrowernumber);
123
    UpdateBorrowerDebarmentFlags($borrowernumber);
124
124
125
    return $r;
125
    return $r;
126
}
126
}
Lines 163-169 sub ModDebarment { Link Here
163
163
164
    my $r = C4::Context->dbh->do( $sql, {}, ( @values, $borrower_debarment_id ) );
164
    my $r = C4::Context->dbh->do( $sql, {}, ( @values, $borrower_debarment_id ) );
165
165
166
    _UpdateBorrowerDebarmentFlags( _GetBorrowernumberByDebarmentId($borrower_debarment_id) );
166
    UpdateBorrowerDebarmentFlags( _GetBorrowernumberByDebarmentId($borrower_debarment_id) );
167
167
168
    return $r;
168
    return $r;
169
}
169
}
Lines 211-217 sub AddUniqueDebarment { Link Here
211
        $r = AddDebarment($params);
211
        $r = AddDebarment($params);
212
    }
212
    }
213
213
214
    _UpdateBorrowerDebarmentFlags($borrowernumber);
214
    UpdateBorrowerDebarmentFlags($borrowernumber);
215
215
216
    return $r;
216
    return $r;
217
}
217
}
Lines 245-253 sub DelUniqueDebarment { Link Here
245
    return DelDebarment( $debarment->{'borrower_debarment_id'} );
245
    return DelDebarment( $debarment->{'borrower_debarment_id'} );
246
}
246
}
247
247
248
=head2 _UpdateBorrowerDebarmentFlags
248
=head2 UpdateBorrowerDebarmentFlags
249
249
250
my $success = _UpdateBorrowerDebarmentFlags( $borrowernumber );
250
my $success = UpdateBorrowerDebarmentFlags( $borrowernumber );
251
251
252
So as not to create additional latency, the fields borrowers.debarred
252
So as not to create additional latency, the fields borrowers.debarred
253
and borrowers.debarredcomment remain in the borrowers table. Whenever
253
and borrowers.debarredcomment remain in the borrowers table. Whenever
Lines 257-263 in the borrowers table accordingly. Link Here
257
257
258
=cut
258
=cut
259
259
260
sub _UpdateBorrowerDebarmentFlags {
260
sub UpdateBorrowerDebarmentFlags {
261
    my ($borrowernumber) = @_;
261
    my ($borrowernumber) = @_;
262
262
263
    return unless ($borrowernumber);
263
    return unless ($borrowernumber);
264
- 

Return to bug 26594