|
Lines 26-31
use String::Random qw( random_string );
Link Here
|
| 26 |
use C4::Auth qw( get_template_and_user ); |
26 |
use C4::Auth qw( get_template_and_user ); |
| 27 |
use C4::Output qw( output_html_with_http_headers ); |
27 |
use C4::Output qw( output_html_with_http_headers ); |
| 28 |
use C4::Context; |
28 |
use C4::Context; |
|
|
29 |
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); |
| 29 |
use C4::Members qw( checkcardnumber ); |
30 |
use C4::Members qw( checkcardnumber ); |
| 30 |
use C4::Form::MessagingPreferences; |
31 |
use C4::Form::MessagingPreferences; |
| 31 |
use Koha::AuthUtils; |
32 |
use Koha::AuthUtils; |
|
Lines 241-246
if ( $action eq 'create' ) {
Link Here
|
| 241 |
|
242 |
|
| 242 |
$template->param( password_cleartext => $patron->plain_text_password ); |
243 |
$template->param( password_cleartext => $patron->plain_text_password ); |
| 243 |
$template->param( borrower => $patron->unblessed ); |
244 |
$template->param( borrower => $patron->unblessed ); |
|
|
245 |
|
| 246 |
# If 'AutoEmailOpacUser' syspref is on, email user their account details from the 'notice' that matches the user's branchcode. |
| 247 |
if ( C4::Context->preference("AutoEmailOpacUser") ) { |
| 248 |
#look for defined primary email address, if blank - attempt to use borr.email and borr.emailpro instead |
| 249 |
my $emailaddr = $patron->notice_email_address; |
| 250 |
# if we manage to find a valid email address, send notice |
| 251 |
if ($emailaddr) { |
| 252 |
eval { |
| 253 |
my $letter = GetPreparedLetter( |
| 254 |
module => 'members', |
| 255 |
letter_code => 'ACCTDETAILS', |
| 256 |
branchcode => $patron->branchcode,, |
| 257 |
lang => $patron->lang || 'default', |
| 258 |
tables => { |
| 259 |
'branches' => $patron->branchcode, |
| 260 |
'borrowers' => $patron->borrowernumber, |
| 261 |
}, |
| 262 |
want_librarian => 1, |
| 263 |
) or return; |
| 264 |
|
| 265 |
my $message_id = EnqueueLetter( |
| 266 |
{ |
| 267 |
letter => $letter, |
| 268 |
borrowernumber => $patron->id, |
| 269 |
to_address => $emailaddr, |
| 270 |
message_transport_type => 'email' |
| 271 |
} |
| 272 |
); |
| 273 |
SendQueuedMessages({ message_id => $message_id }); |
| 274 |
}; |
| 275 |
} |
| 276 |
} |
| 244 |
} else { |
277 |
} else { |
| 245 |
# FIXME Handle possible errors here |
278 |
# FIXME Handle possible errors here |
| 246 |
} |
279 |
} |
| 247 |
- |
|
|