|
Lines 436-442
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
| 436 |
if ($op eq 'insert'){ |
436 |
if ($op eq 'insert'){ |
| 437 |
# we know it's not a duplicate borrowernumber or there would already be an error |
437 |
# we know it's not a duplicate borrowernumber or there would already be an error |
| 438 |
delete $newdata{password2}; |
438 |
delete $newdata{password2}; |
| 439 |
my $patron = eval { Koha::Patron->new(\%newdata)->store }; |
439 |
$patron = eval { Koha::Patron->new(\%newdata)->store }; |
| 440 |
if ( $@ ) { |
440 |
if ( $@ ) { |
| 441 |
# FIXME Urgent error handling here, we cannot fail without relevant feedback |
441 |
# FIXME Urgent error handling here, we cannot fail without relevant feedback |
| 442 |
# Lot of code will need to be removed from this script to handle exceptions raised by Koha::Patron->store |
442 |
# Lot of code will need to be removed from this script to handle exceptions raised by Koha::Patron->store |
|
Lines 532-538
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
| 532 |
delete $newdata{'userid'}; |
532 |
delete $newdata{'userid'}; |
| 533 |
} |
533 |
} |
| 534 |
|
534 |
|
| 535 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
535 |
$patron = Koha::Patrons->find( $borrowernumber ); |
| 536 |
$newdata{debarredcomment} = $newdata{debarred_comment}; |
536 |
$newdata{debarredcomment} = $newdata{debarred_comment}; |
| 537 |
delete $newdata{debarred_comment}; |
537 |
delete $newdata{debarred_comment}; |
| 538 |
delete $newdata{password2}; |
538 |
delete $newdata{password2}; |
| 539 |
- |
|
|