Lines 1422-1428
Returns the empty string if the borrower has no email addresses.
Link Here
|
1422 |
sub first_valid_email_address { |
1422 |
sub first_valid_email_address { |
1423 |
my ($self) = @_; |
1423 |
my ($self) = @_; |
1424 |
|
1424 |
|
1425 |
return $self->email() || $self->emailpro() || $self->B_email() || q{}; |
1425 |
my $email = q{}; |
|
|
1426 |
|
1427 |
my @fields = split /\s*\|\s*/, |
1428 |
C4::Context->preference('EmailFieldPrecedence'); |
1429 |
for my $field (@fields) { |
1430 |
$email = $self->$field; |
1431 |
last if ( $email ne q{} ); |
1432 |
} |
1433 |
|
1434 |
return $email; |
1426 |
} |
1435 |
} |
1427 |
|
1436 |
|
1428 |
=head3 get_club_enrollments |
1437 |
=head3 get_club_enrollments |
1429 |
- |
|
|