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

(-)a/Koha/Email.pm (-2 / +2 lines)
Lines 195-201 Return true is the email address passed in parameter is valid following RFC 2822 Link Here
195
195
196
sub is_valid {
196
sub is_valid {
197
    my ( $class, $email ) = @_;
197
    my ( $class, $email ) = @_;
198
    return ($email =~ m{$Email::Address::mailbox}) ? 1 : 0;
198
    my @addrs = Email::Address->parse($email);
199
    return @addrs ? 1 : 0;
199
}
200
}
200
201
201
1;
202
1;
202
- 

Return to bug 28870