|
Lines 540-545
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
| 540 |
delete $newdata{'userid'}; |
540 |
delete $newdata{'userid'}; |
| 541 |
} |
541 |
} |
| 542 |
|
542 |
|
|
|
543 |
if ($NoUpdateEmail) { |
| 544 |
delete $newdata{'email'}; |
| 545 |
delete $newdata{'emailpro'}; |
| 546 |
delete $newdata{'B_email'}; |
| 547 |
} |
| 548 |
|
| 543 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
549 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 544 |
$newdata{debarredcomment} = $newdata{debarred_comment}; |
550 |
$newdata{debarredcomment} = $newdata{debarred_comment}; |
| 545 |
delete $newdata{debarred_comment}; |
551 |
delete $newdata{debarred_comment}; |
| 546 |
- |
|
|