Lines 550-556
if ( ( !$nok ) and $nodouble and ( $op eq 'cud-insert' or $op eq 'cud-save' ) )
Link Here
|
550 |
$patron = Koha::Patrons->find($borrowernumber); |
550 |
$patron = Koha::Patrons->find($borrowernumber); |
551 |
|
551 |
|
552 |
# Ensure preferred name is set even if not passed because of BorrowerUnwantedFields |
552 |
# Ensure preferred name is set even if not passed because of BorrowerUnwantedFields |
553 |
$newdata{preferred_name} = undef unless defined $newdata{preferred_name}; |
553 |
#$newdata{preferred_name} = undef unless defined $newdata{preferred_name}; |
554 |
|
554 |
|
555 |
if ($NoUpdateEmail) { |
555 |
if ($NoUpdateEmail) { |
556 |
delete $newdata{'email'}; |
556 |
delete $newdata{'email'}; |
557 |
- |
|
|