bugfix [ 948050 ] Correct email address not accepted (fix)
This commit is contained in:
parent
f09f461b2d
commit
32e93292bb
2 changed files with 3 additions and 1 deletions
|
|
@ -12,6 +12,8 @@
|
||||||
- Bugfix [ 952137 ] error deleting default content after install
|
- Bugfix [ 952137 ] error deleting default content after install
|
||||||
- Bugfix [ 947141 ] Bug in Forum - No Subject!!!
|
- Bugfix [ 947141 ] Bug in Forum - No Subject!!!
|
||||||
- Bugfix [ 949923 ] Collateral changes owner when editing
|
- Bugfix [ 949923 ] Collateral changes owner when editing
|
||||||
|
- Bugfix [ 949923 ] Collateral changes owner when editing
|
||||||
|
- Bugfix [ 948050 ] Correct email address not accepted (fix)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -68,7 +68,7 @@ These functions are available from this package:
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
sub _checkEmailAddy {
|
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);
|
||||||
}
|
}
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue