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