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