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

merging some 5.4.4 changes

Browse source
This commit is contained in:
JT Smith 2003-09-13 19:45:04 +00:00
parent ac102923ce
commit eb4a6bca87
8 changed files with 30 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/FormProcessor.pm
View file

@ -214,7 +214,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;