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

merging 5.5.4 bugfixes

Browse source
This commit is contained in:
JT Smith 2003-12-31 17:31:50 +00:00
parent fe7f92f591
commit 1dba651ea1
2 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/FormProcessor.pm
View file

@ -211,7 +211,7 @@ The name of the form variable to retrieve.
=cut
sub email {
if ($session{form}{$_[0]} =~ /^([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i) {
if ($session{form}{$_[0]} =~ /^([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i) {
return $session{form}{$_[0]};
}
return undef;