View | Details | Raw Unified | Return to bug 30214
Collapse All | Expand All

(-)a/opac/opac-memberentry.pl (-1 / +33 lines)
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
- 

Return to bug 30214