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