Lines 1435-1441
Returns the empty string if the borrower has no email addresses.
Link Here
|
1435 |
sub first_valid_email_address { |
1435 |
sub first_valid_email_address { |
1436 |
my ($self) = @_; |
1436 |
my ($self) = @_; |
1437 |
|
1437 |
|
1438 |
return $self->email() || $self->emailpro() || $self->B_email() || q{}; |
1438 |
my $email = q{}; |
|
|
1439 |
|
1440 |
my @fields = split /\s*\|\s*/, |
1441 |
C4::Context->preference('EmailFieldPrecedence'); |
1442 |
for my $field (@fields) { |
1443 |
$email = $self->$field; |
1444 |
last if ( $email ne q{} ); |
1445 |
} |
1446 |
|
1447 |
return $email; |
1439 |
} |
1448 |
} |
1440 |
|
1449 |
|
1441 |
=head3 get_club_enrollments |
1450 |
=head3 get_club_enrollments |
1442 |
- |
|
|