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

Fix multiple email handling in the Inbox.

Browse source 
Put an email regex into WebGUI::Utility, and use it in Form/Email and Account/Inbox.
This commit is contained in:
Colin Kuskie 2009-06-03 17:11:36 +00:00
parent 4bf3f457de
commit 29759ede9c
6 changed files with 111 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -17,6 +17,7 @@ package WebGUI::Form::Email;
use strict;
use base 'WebGUI::Form::Text';
use WebGUI::International;
use WebGUI::Utility;
=head1 NAME
@ -65,7 +66,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 =~ /^[0-9a-z._%+-]+@(?:[0-9a-z-]+\.)+[a-z]{2,9}$/i) {
if ($value =~ WebGUI::Utility::emailRegex) {
return $value;
}
return undef;