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/Account/Inbox.pm
View file

@ -8,6 +8,7 @@ use WebGUI::International;
use WebGUI::Pluggable;
use WebGUI::Utility;
use Tie::IxHash;
use Email::Valid;
use base qw/WebGUI::Account/;
=head1 NAME
@ -908,7 +909,7 @@ sub www_inviteUserSave {
my $db = $session->db;
my @toList = split /[;,]/, $to;
for my $inviteeEmail (@toList) {
unless ( $inviteeEmail =~ WebGUI::Utility::emailRegex ) {
unless ( Email::Valid->address($inviteeEmail) ) {
return $self->www_inviteUser( sprintf $i18n->get('invalid email'), $inviteeEmail );
}