|
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 |
- |
|
|