bugfix [ 948050 ] Correct email address not accepted (fix)

This commit is contained in:
JT Smith 2004-05-25 19:56:47 +00:00
parent f09f461b2d
commit 32e93292bb
2 changed files with 3 additions and 1 deletions

View file

@ -12,6 +12,8 @@
- Bugfix [ 952137 ] error deleting default content after install
- Bugfix [ 947141 ] Bug in Forum - No Subject!!!
- Bugfix [ 949923 ] Collateral changes owner when editing
- Bugfix [ 949923 ] Collateral changes owner when editing
- Bugfix [ 948050 ] Correct email address not accepted (fix)

View file

@ -68,7 +68,7 @@ These functions are available from this package:
=cut
sub _checkEmailAddy {
return ($_[0] =~ /^([A-Z0-9]+[._-]?){1,}([A-Z0-9]+[_-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i);
return ($_[0] =~ /^([A-Z0-9]+[._+-]?){1,}([A-Z0-9]+[_+-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i);
}
#-------------------------------------------------------------------