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

fixing the ->param ->body distinction issue.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Form/Checkbox.pm
View file

@ -104,7 +104,7 @@ Retrieves a value from a form GET or POST and returns it. If the value comes bac
sub getValueFromPost {
my $self = shift;
my $formValue = $self->session->request->param($self->get("name"));
my $formValue = $self->session->form->param($self->get("name"));
if (defined $formValue) {
return $formValue;
} else {

2
lib/WebGUI/Form/Color.pm
View file

@ -67,7 +67,7 @@ Returns a hex color like "#000000". Returns undef if the return value is not a v
sub getValueFromPost {
my $self = shift;
my $color = $self->session->request->param($self->get("name"));
my $color = $self->session->form->param($self->get("name"));
return undef unless $color =~ /\#\w{6}/;
return $color;
}

4
lib/WebGUI/Form/Combo.pm
View file

@ -86,8 +86,8 @@ the list.
sub getValueFromPost {
my $self = shift;
if ($self->session->request->param($self->get("name")."_new")) {
return $self->session->request->param($self->get("name")."_new");
if ($self->session->form->param($self->get("name")."_new")) {
return $self->session->form->param($self->get("name")."_new");
}
return $self->SUPER::getValueFromPost;
}

2
lib/WebGUI/Form/Control.pm
View file

@ -397,7 +397,7 @@ Retrieves a value from a form GET or POST and returns it. If the value comes bac
sub getValueFromPost {
my $self = shift;
my $formValue = $self->session->request->param($self->get("name")) if ($self->session->request);
my $formValue = $self->session->form->param($self->get("name")) if ($self->session->request);
if (defined $formValue) {
return $formValue;
} else {

2
lib/WebGUI/Form/Date.pm
View file

@ -121,7 +121,7 @@ Returns a validated form post result. If the result does not pass validation, it
sub getValueFromPost {
my $self = shift;
return $self->session->datetime->setToEpoch($self->session->request->param($self->get("name")));
return $self->session->datetime->setToEpoch($self->session->form->param($self->get("name")));
}
#-------------------------------------------------------------------

2
lib/WebGUI/Form/DateTime.pm
View file

@ -100,7 +100,7 @@ Returns a validated form post result. If the result does not pass validation, it
sub getValueFromPost {
my $self = shift;
return $self->session->datetime->setToEpoch($self->session->request->param($self->get("name")));
return $self->session->datetime->setToEpoch($self->session->form->param($self->get("name")));
}
#-------------------------------------------------------------------

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

@ -78,7 +78,7 @@ Returns a validated email address. If the result does not pass validation, it re
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 =~ /^([A-Z0-9]+[._+-]?){1,}([A-Z0-9]+[_+-]?)+\@(([A-Z0-9]+[._-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i) {
return $value;

2
lib/WebGUI/Form/FieldType.pm
View file

@ -114,7 +114,7 @@ Returns either what's posted or if nothing comes back it returns "text".
sub getValueFromPost {
my $self = shift;
return $self->session->request->param($self->get("name")) || "text";
return $self->session->form->param($self->get("name")) || "text";
}
#-------------------------------------------------------------------

4
lib/WebGUI/Form/File.pm
View file

@ -144,8 +144,8 @@ deleting the file if it was specified.
sub getValueFromPost {
my $self = shift;
my $value = $self->session->request->param($self->get("name"));
if ($self->session->request->param(join '_', '_', $self->get("name"), 'delete')) {
my $value = $self->session->form->param($self->get("name"));
if ($self->session->form->param(join '_', '_', $self->get("name"), 'delete')) {
my $storage = WebGUI::Storage->get($self->session,$value);
$storage->delete;
return '';

2
lib/WebGUI/Form/FilterContent.pm
View file

@ -93,7 +93,7 @@ Returns either what's posted or if nothing comes back it returns "most".
sub getValueFromPost {
my $self = shift;
return $self->session->request->param($self->get("name")) || "most";
return $self->session->form->param($self->get("name")) || "most";
}
#-------------------------------------------------------------------

2
lib/WebGUI/Form/Float.pm
View file

@ -99,7 +99,7 @@ Returns the integer from the form post, or returns 0.0 if the post result is inv
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 =~ /^[\d\-\.]+$/) {
return $value;
}

2
lib/WebGUI/Form/Integer.pm
View file

@ -99,7 +99,7 @@ Returns the integer from the form post, or returns 0 if the post result is inval
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 =~ /^[\d\-]+$/) {
return $value;
}

2
lib/WebGUI/Form/Interval.pm
View file

@ -90,7 +90,7 @@ Returns either the interval that was posted (in seconds) or if nothing comes bac
sub getValueFromPost {
my $self = shift;
return $self->session->datetime->intervalToSeconds($self->session->request->param($self->get("name")."_interval"),$self->session->request->param($self->get("name")."_units")) || 0;
return $self->session->datetime->intervalToSeconds($self->session->form->param($self->get("name")."_interval"),$self->session->form->param($self->get("name")."_units")) || 0;
}
#-------------------------------------------------------------------

2
lib/WebGUI/Form/List.pm
View file

@ -198,7 +198,7 @@ Returns an array or a carriage return ("\n") separated scalar depending upon whe
sub getValueFromPost {
my $self = shift;
my @data = $self->session->request->param($self->get("name"));
my @data = $self->session->form->param($self->get("name"));
return wantarray ? @data : join("\n",@data);
}

2
lib/WebGUI/Form/Phone.pm
View file

@ -78,7 +78,7 @@ Returns a string filtered to allow only digits, spaces, and these special charac
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 =~ /^[\d\s\-\+\(\)]+$/) {
return $value;
}

2
lib/WebGUI/Form/SelectBox.pm
View file

@ -95,7 +95,7 @@ Retrieves a value from a form GET or POST and returns it. If the value comes bac
sub getValueFromPost {
my $self = shift;
my $formValue = $self->session->request->param($self->get("name"));
my $formValue = $self->session->form->param($self->get("name"));
if (defined $formValue) {
return $formValue;
} else {

2
lib/WebGUI/Form/TimeField.pm
View file

@ -94,7 +94,7 @@ Returns the number of seconds since 00:00:00 on a 24 hour clock. Note, this will
sub getValueFromPost {
my $self = shift;
return $self->session->datetime->timeToSeconds($self->session->request->param($self->get("name")))-($self->session->user->profileField("timeOffset")*3600);
return $self->session->datetime->timeToSeconds($self->session->form->param($self->get("name")))-($self->session->user->profileField("timeOffset")*3600);
}
#-------------------------------------------------------------------

2
lib/WebGUI/Form/Url.pm
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) {

2
lib/WebGUI/Form/YesNo.pm
View file

@ -86,7 +86,7 @@ Returns either a 1 or 0 representing yes, no.
sub yesNo {
my $self = shift;
if ($self->session->request->param($self->get("name")) > 0) {
if ($self->session->form->param($self->get("name")) > 0) {
return 1;
}
return 0;

2
lib/WebGUI/Form/Zipcode.pm
View file

@ -85,7 +85,7 @@ Returns a validated form post result. If the result does not pass validation, it
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 =~ /^[A-Z\d\s\-]+$/) {
return $value;
}