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 |
- |
|
|