|
Lines 405-423
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
| 405 |
# If 'AutoEmailOpacUser' syspref is on, email user their account details from the 'notice' that matches the user's branchcode. |
405 |
# If 'AutoEmailOpacUser' syspref is on, email user their account details from the 'notice' that matches the user's branchcode. |
| 406 |
if ( C4::Context->preference("AutoEmailOpacUser") == 1 && $newdata{'userid'} && $newdata{'password'}) { |
406 |
if ( C4::Context->preference("AutoEmailOpacUser") == 1 && $newdata{'userid'} && $newdata{'password'}) { |
| 407 |
#look for defined primary email address, if blank - attempt to use borr.email and borr.emailpro instead |
407 |
#look for defined primary email address, if blank - attempt to use borr.email and borr.emailpro instead |
| 408 |
my $emailaddr; |
408 |
my @email_addresses; |
| 409 |
if (C4::Context->preference("AutoEmailPrimaryAddress") ne 'OFF' && |
409 |
for my $field ( split /,/, C4::Context->preference("AutoEmailPrimaryAddress") ) { |
| 410 |
$newdata{C4::Context->preference("AutoEmailPrimaryAddress")} =~ /\w\@\w/ ) { |
410 |
push @email_addresses, $_ if $newdata{$_} =~ /\w@\w/ |
| 411 |
$emailaddr = $newdata{C4::Context->preference("AutoEmailPrimaryAddress")} |
|
|
| 412 |
} |
| 413 |
elsif ($newdata{email} =~ /\w\@\w/) { |
| 414 |
$emailaddr = $newdata{email} |
| 415 |
} |
411 |
} |
| 416 |
elsif ($newdata{emailpro} =~ /\w\@\w/) { |
412 |
my $emailaddr = join ", ", @email_addresses; |
| 417 |
$emailaddr = $newdata{emailpro} |
413 |
unless ( $emailaddr ) { |
| 418 |
} |
414 |
for my $field ( qw( email emailpro B_email ) ) { |
| 419 |
elsif ($newdata{B_email} =~ /\w\@\w/) { |
415 |
$emailaddr = $newdata{$field} if $newdata{$field} =~ m|\w\@\w|; |
| 420 |
$emailaddr = $newdata{B_email} |
416 |
} |
| 421 |
} |
417 |
} |
| 422 |
# if we manage to find a valid email address, send notice |
418 |
# if we manage to find a valid email address, send notice |
| 423 |
if ($emailaddr) { |
419 |
if ($emailaddr) { |
| 424 |
- |
|
|