Lines 38-43
use Koha::DateUtils qw( dt_from_string );
Link Here
|
38 |
use Koha::List::Patron; |
38 |
use Koha::List::Patron; |
39 |
use Koha::Libraries; |
39 |
use Koha::Libraries; |
40 |
use Koha::Patron::Categories; |
40 |
use Koha::Patron::Categories; |
|
|
41 |
use Koha::Patron::Debarments; |
41 |
use Koha::Patrons; |
42 |
use Koha::Patrons; |
42 |
|
43 |
|
43 |
my $input = new CGI; |
44 |
my $input = new CGI; |
Lines 306-311
if ( $op eq 'do' ) {
Link Here
|
306 |
for my $borrowernumber ( @borrowernumbers ) { |
307 |
for my $borrowernumber ( @borrowernumbers ) { |
307 |
# If at least one field are filled, we want to modify the borrower |
308 |
# If at least one field are filled, we want to modify the borrower |
308 |
if ( defined $infos ) { |
309 |
if ( defined $infos ) { |
|
|
310 |
# If a debarred date or debarred comment has been submitted make a new debarment |
311 |
if ( $infos->{debarred} || $infos->{debarredcomment} ) { |
312 |
AddDebarment( |
313 |
{ |
314 |
borrowernumber => $borrowernumber, |
315 |
type => 'MANUAL', |
316 |
comment => $infos->{debarredcomment}, |
317 |
expiration => $infos->{debarred}, |
318 |
}); |
319 |
} |
320 |
|
321 |
# If debarment date or debarment comment are disabled then remove all debarrments |
322 |
if ( grep { /debarred/ } @disabled ) { |
323 |
eval { |
324 |
my $debarrments = GetDebarments( { borrowernumber => $borrowernumber } ); |
325 |
foreach my $debarment (@$debarrments) { |
326 |
DelDebarment( $debarment->{'borrower_debarment_id'} ); |
327 |
} |
328 |
}; |
329 |
} |
330 |
|
309 |
$infos->{borrowernumber} = $borrowernumber; |
331 |
$infos->{borrowernumber} = $borrowernumber; |
310 |
eval { Koha::Patrons->find( $borrowernumber )->set($infos)->store; }; |
332 |
eval { Koha::Patrons->find( $borrowernumber )->set($infos)->store; }; |
311 |
if ( $@ ) { # FIXME We could provide better error handling here |
333 |
if ( $@ ) { # FIXME We could provide better error handling here |
312 |
- |
|
|