|
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*/, C4::Context->preference('EmailFieldPrecidence'); |
| 1428 |
for my $field ( @fields ) { |
| 1429 |
$email = $self->$field; |
| 1430 |
last if ($email ne q{}); |
| 1431 |
} |
| 1432 |
|
| 1433 |
return $email; |
| 1426 |
} |
1434 |
} |
| 1427 |
|
1435 |
|
| 1428 |
=head3 get_club_enrollments |
1436 |
=head3 get_club_enrollments |
| 1429 |
- |
|
|