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