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

replaced $session{cgi} with $session{req}

Browse source
This commit is contained in:
Matthew Wilson 2005-11-03 21:48:37 +00:00
parent 1b0adbb416
commit c01d7e49d5
33 changed files with 76 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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

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

@ -107,7 +107,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 = $session{cgi}->param($self->{name});
my $formValue = $session{req}->param($self->{name});
if (defined $formValue) {
return $formValue;
} else {

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

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

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

@ -62,8 +62,8 @@ Returns an array or a carriage return ("\n") separated scalar depending upon whe
sub getValueFromPost {
my $self = shift;
if ($session{cgi}->param($self->{name}."_new")) {
return $session{cgi}->param($self->{name}."_new");
if ($session{req}->param($self->{name}."_new")) {
return $session{req}->param($self->{name}."_new");
}
return $self->SUPER::getValueFromPost;
}

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

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

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

@ -306,7 +306,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 = $session{cgi}->param($self->{name});
my $formValue = $session{req}->param($self->{name});
if (defined $formValue) {
return $formValue;
} else {

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

@ -112,7 +112,7 @@ Returns a validated form post result. If the result does not pass validation, it
sub getValueFromPost {
my $self = shift;
return WebGUI::DateTime::setToEpoch($session{cgi}->param($self->{name}));
return WebGUI::DateTime::setToEpoch($session{req}->param($self->{name}));
}
#-------------------------------------------------------------------

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

@ -104,7 +104,7 @@ Returns a validated form post result. If the result does not pass validation, it
sub getValueFromPost {
my $self = shift;
return WebGUI::DateTime::setToEpoch($session{cgi}->param($self->{name}));
return WebGUI::DateTime::setToEpoch($session{req}->param($self->{name}));
}
#-------------------------------------------------------------------

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

@ -61,7 +61,7 @@ Returns a validated email address. If the result does not pass validation, it re
sub getValueFromPost {
my $self = shift;
my $value = $session{cgi}->param($self->{name});
my $value = $session{req}->param($self->{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

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

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

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

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

@ -103,7 +103,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 = $session{cgi}->param($self->{name});
my $value = $session{req}->param($self->{name});
if ($value =~ /^[\d\-\.]+$/) {
return $value;
}

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

@ -121,7 +121,7 @@ Returns either what's posted or if nothing comes back it returns "2" the ID of t
sub getValueFromPost {
my $self = shift;
my @data = $session{cgi}->param($self->{name});
my @data = $session{req}->param($self->{name});
if (scalar(@data)) {
return wantarray ? @data : join("\n",@data);
}

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

@ -103,7 +103,7 @@ Returns the integer from the form post, or returns 0 if the post result is inval
sub getValueFromPost {
my $self = shift;
my $value = $session{cgi}->param($self->{name});
my $value = $session{req}->param($self->{name});
if ($value =~ /^[\d\-]+$/) {
return $value;
}

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

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

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

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

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

@ -61,7 +61,7 @@ Returns a string filtered to allow only digits, spaces, and these special charac
sub getValueFromPost {
my $self = shift;
my $value = $session{cgi}->param($self->{name});
my $value = $session{req}->param($self->{name});
if ($value =~ /^[\d\s\-\+\(\)]+$/) {
return $value;
}

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

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

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

@ -99,7 +99,7 @@ Returns the number of seconds since 00:00:00 on a 24 hour clock. Note, this will
sub getValueFromPost {
my $self = shift;
return WebGUI::DateTime::timeToSeconds($session{cgi}->param($self->{name}))-($session{user}{timeOffset}*3600);
return WebGUI::DateTime::timeToSeconds($session{req}->param($self->{name}))-($session{user}{timeOffset}*3600);
}
#-------------------------------------------------------------------

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

@ -89,7 +89,7 @@ Parses the posted value and tries to make corrections if necessary.
sub getValueFromPost {
my $self = shift;
my $value = $session{cgi}->param($self->{name});
my $value = $session{req}->param($self->{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

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

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

@ -89,7 +89,7 @@ Returns a validated form post result. If the result does not pass validation, it
sub getValueFromPost {
my $self = shift;
my $value = $session{cgi}->param($self->{name});
my $value = $session{req}->param($self->{name});
if ($value =~ /^[A-Z\d\s\-]+$/) {
return $value;
}