Lines 526-531
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
526 |
} |
526 |
} |
527 |
|
527 |
|
528 |
$patron = Koha::Patrons->find( $borrowernumber ); |
528 |
$patron = Koha::Patrons->find( $borrowernumber ); |
|
|
529 |
|
530 |
if ($NoUpdateEmail) { |
531 |
delete $newdata{'email'}; |
532 |
delete $newdata{'emailpro'}; |
533 |
delete $newdata{'B_email'}; |
534 |
} |
535 |
|
529 |
$newdata{debarredcomment} = $newdata{debarred_comment}; |
536 |
$newdata{debarredcomment} = $newdata{debarred_comment}; |
530 |
delete $newdata{debarred_comment}; |
537 |
delete $newdata{debarred_comment}; |
531 |
delete $newdata{password2}; |
538 |
delete $newdata{password2}; |
532 |
- |
|
|