Lines 76-82
if ( $query->param('sendEmail') || $query->param('resendEmail') ) {
Link Here
|
76 |
elsif ( $borrower = $search_results->next() ) { # One matching borrower |
76 |
elsif ( $borrower = $search_results->next() ) { # One matching borrower |
77 |
my @emails = grep { $_ } ( $borrower->email, $borrower->emailpro, $borrower->B_email ); |
77 |
my @emails = grep { $_ } ( $borrower->email, $borrower->emailpro, $borrower->B_email ); |
78 |
|
78 |
|
79 |
my $firstNonEmptyEmail = shift @emails; |
79 |
my $firstNonEmptyEmail; |
|
|
80 |
$firstNonEmptyEmail = $emails[0] if @emails; |
80 |
|
81 |
|
81 |
# Is the given email one of the borrower's ? |
82 |
# Is the given email one of the borrower's ? |
82 |
if ( $email && !( grep /^$email$/i, @emails ) ) { |
83 |
if ( $email && !( grep /^$email$/i, @emails ) ) { |
83 |
- |
|
|