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