C4::Context->preference('EmailFieldPrecedence');
for my $field (@fields) {
$email = $self->$field;
last if ( $email );
last if ($email);
}
return $email;
-