if ($success) {

            # If 'AutoEmailOpacUser' syspref is on, email user their account details from the 'notice'

            # that matches the user's branchcode.

            if (   C4::Context->preference("AutoEmailOpacUser") == 1

                && $borrower{'userid'}

                && $borrower{'password'} )

            {

                #look for defined primary email address, if blank - attempt to use borr.email

                #and borr.emailpro instead

                my $emailaddr;

                if ( C4::Context->preference("AutoEmailPrimaryAddress") ne 'OFF'

                    && $borrower{ C4::Context->preference(

                            "AutoEmailPrimaryAddress") } =~ /\w\@\w/ )

                {

                    $emailaddr = $borrower{ C4::Context->preference(

                            "AutoEmailPrimaryAddress") };

                }

                elsif ( $borrower{email} =~ /\w\@\w/ ) {

                    $emailaddr = $borrower{email};

                }

                elsif ( $borrower{emailpro} =~ /\w\@\w/ ) {

                    $emailaddr = $borrower{emailpro};

                }

                elsif ( $borrower{B_email} =~ /\w\@\w/ ) {

                    $emailaddr = $borrower{B_email};

                }

                # if we manage to find a valid email address, send notice

                if ($emailaddr) {

                    $borrower{emailaddr} = $emailaddr;

                    my $err;

                    eval {

                        $err =

                          SendAlerts( 'members', \%borrower, "ACCTDETAILS" );

                    };

                }

            }

        }