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