Lines 22-27
use Digest::MD5 qw( md5_base64 md5_hex );
Link Here
|
22 |
use String::Random qw( random_string ); |
22 |
use String::Random qw( random_string ); |
23 |
|
23 |
|
24 |
use C4::Auth; |
24 |
use C4::Auth; |
|
|
25 |
use C4::Letters qw/SendAlerts/; |
25 |
use C4::Output; |
26 |
use C4::Output; |
26 |
use C4::Members; |
27 |
use C4::Members; |
27 |
use Koha::Borrower::Modifications; |
28 |
use Koha::Borrower::Modifications; |
Lines 153-158
if ( $action eq 'create' ) {
Link Here
|
153 |
C4::Context->preference( |
154 |
C4::Context->preference( |
154 |
'PatronSelfRegistrationAdditionalInstructions') |
155 |
'PatronSelfRegistrationAdditionalInstructions') |
155 |
); |
156 |
); |
|
|
157 |
if( C4::Context->preference('AutoEmailOPACUser') ) { |
158 |
my $external = { |
159 |
borrowernumber => $borrowernumber, |
160 |
emailaddr => $borrower{email}||$borrower{emailpro}, |
161 |
branchcode => $borrower{branchcode}, |
162 |
password => $password, |
163 |
}; |
164 |
SendAlerts ( 'members', $external, "ACCTDETAILS" ); |
165 |
} |
156 |
} |
166 |
} |
157 |
} |
167 |
} |
158 |
} |
168 |
} |