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