fixing the ->param ->body distinction issue.

This commit is contained in:
Matthew Wilson 2006-01-23 05:18:54 +00:00
parent b045ac2d61
commit f64ec77d8a
34 changed files with 41 additions and 38 deletions

View file

@ -85,7 +85,7 @@ Parses the posted value and tries to make corrections if necessary.
sub getValueFromPost {
my $self = shift;
my $value = $self->session->request->param($self->get("name"));
my $value = $self->session->form->param($self->get("name"));
if ($value =~ /mailto:/) {
return $value;
} elsif ($value =~ /^([A-Z0-9]+[._+-]?){1,}([A-Z0-9]+[_+-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i) {