oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed: EMail field rejects some valid email addresses

Browse source
This commit is contained in:
Graham Knop 2008-04-08 14:22:14 +00:00
parent 427c1cff87
commit b09787705e
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Form/Email.pm
View file

@ -83,7 +83,7 @@ An optional value to process instead of POST input.
sub getValueFromPost {
my $self = shift;
my $value = @_ ? shift : $self->session->form->param($self->get("name"));
if ($value =~ /^([0-9a-zA-Z]([-.+\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$/i) {
if ($value =~ /^[0-9a-z,_%+-]+@(?:[0-9a-z-]+\.)+[a-z]{2,9})$/i) {
return $value;
}
return undef;