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