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

remove WebGUI::Utility::emailRegex

Browse source
This commit is contained in:
Graham Knop 2010-08-20 12:22:33 -05:00
parent 10aa605304
commit a34f51a903
5 changed files with 5 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18,6 +18,7 @@ use strict;
use base 'WebGUI::Form::Text';
use WebGUI::International;
use WebGUI::Utility;
use Email::Valid;
=head1 NAME
@ -66,7 +67,7 @@ An optional value to process instead of POST input.
sub getValue {
my $self = shift;
my $value = @_ ? shift : $self->session->form->param($self->get("name"));
if ($value =~ WebGUI::Utility::emailRegex) {
if (Email::Valid->address($value)) {
return $value;
}
return undef;