View | Details | Raw Unified | Return to bug 28870
Collapse All | Expand All

(-)a/Koha/Email.pm (-2 / +2 lines)
Lines 184-190 Return true is the email address passed in parameter is valid following RFC 2822 Link Here
184
184
185
sub is_valid {
185
sub is_valid {
186
    my ( $class, $email ) = @_;
186
    my ( $class, $email ) = @_;
187
    return ($email =~ m{$Email::Address::mailbox}) ? 1 : 0;
187
    my @addrs = Email::Address->parse($email);
188
    return @addrs ? 1 : 0;
188
}
189
}
189
190
190
1;
191
1;
191
- 

Return to bug 28870