Lines 460-466
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
460 |
} |
460 |
} |
461 |
|
461 |
|
462 |
# If 'AutoEmailOpacUser' syspref is on, email user their account details from the 'notice' that matches the user's branchcode. |
462 |
# If 'AutoEmailOpacUser' syspref is on, email user their account details from the 'notice' that matches the user's branchcode. |
463 |
if ( C4::Context->preference("AutoEmailOpacUser") == 1 && $newdata{'userid'} && $newdata{'password'}) { |
463 |
if ( C4::Context->preference("AutoEmailOpacUser") ) { |
464 |
#look for defined primary email address, if blank - attempt to use borr.email and borr.emailpro instead |
464 |
#look for defined primary email address, if blank - attempt to use borr.email and borr.emailpro instead |
465 |
my $emailaddr; |
465 |
my $emailaddr; |
466 |
if (C4::Context->preference("AutoEmailPrimaryAddress") ne 'OFF' && |
466 |
if (C4::Context->preference("AutoEmailPrimaryAddress") ne 'OFF' && |
467 |
- |
|
|