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