Lines 26-31
use Encode;
Link Here
|
26 |
use Carp; |
26 |
use Carp; |
27 |
|
27 |
|
28 |
use C4::Members; |
28 |
use C4::Members; |
|
|
29 |
use C4::Branch; |
29 |
use C4::Log; |
30 |
use C4::Log; |
30 |
use C4::SMS; |
31 |
use C4::SMS; |
31 |
use C4::Debug; |
32 |
use C4::Debug; |
Lines 440-454
sub SendAlerts {
Link Here
|
440 |
} |
441 |
} |
441 |
# send an "account details" notice to a newly created user |
442 |
# send an "account details" notice to a newly created user |
442 |
elsif ( $type eq 'members' ) { |
443 |
elsif ( $type eq 'members' ) { |
443 |
$letter->{content} =~ s/<<borrowers.title>>/$externalid->{'title'}/g; |
444 |
# must parse the password special, before it's hashed. |
444 |
$letter->{content} =~ s/<<borrowers.firstname>>/$externalid->{'firstname'}/g; |
|
|
445 |
$letter->{content} =~ s/<<borrowers.surname>>/$externalid->{'surname'}/g; |
446 |
$letter->{content} =~ s/<<borrowers.userid>>/$externalid->{'userid'}/g; |
447 |
$letter->{content} =~ s/<<borrowers.password>>/$externalid->{'password'}/g; |
445 |
$letter->{content} =~ s/<<borrowers.password>>/$externalid->{'password'}/g; |
448 |
|
446 |
|
|
|
447 |
parseletter( $letter, 'borrowers', $externalid->{'borrowernumber'}); |
448 |
parseletter( $letter, 'branches', $externalid->{'branchcode'} ); |
449 |
|
450 |
my $branchdetails = GetBranchDetail($externalid->{'branchcode'}); |
449 |
my %mail = ( |
451 |
my %mail = ( |
450 |
To => $externalid->{'emailaddr'}, |
452 |
To => $externalid->{'emailaddr'}, |
451 |
From => C4::Context->preference("KohaAdminEmailAddress"), |
453 |
From => $branchdetails->{'branchemail'} || C4::Context->preference("KohaAdminEmailAddress"), |
452 |
Subject => $letter->{'title'}, |
454 |
Subject => $letter->{'title'}, |
453 |
Message => $letter->{'content'}, |
455 |
Message => $letter->{'content'}, |
454 |
'Content-Type' => 'text/plain; charset="utf8"', |
456 |
'Content-Type' => 'text/plain; charset="utf8"', |