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

fixed backwards compatibility with new form control API

Browse source
This commit is contained in:
Doug Bell 2008-07-20 19:16:45 +00:00
parent 2763dfee25
commit f8141d46f6
2 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -400,14 +400,13 @@ An optional value to process, instead of POST input.
=cut
# Note: This method calls getValueFromPost to maintain backwards compatibility.
# getValueFromPost is deprecated, use getValue
sub getValue {
my ($self, $value) = @_;
return $value if (defined $value);
if ($self->session->request) {
$value = $self->session->form->param($self->get("name"));
return $value if (defined $value);
}
return $self->getDefaultValue;
my $self = shift;
my $value = shift;
return $value if defined $value;
return $self->getValueFromPost;
}
#-------------------------------------------------------------------
@ -447,9 +446,15 @@ Depricated. See getValue().
=cut
# Note: This method does the actual work of getValue for backwards compatibility
# getValueFromPost is deprecated, use getValue
sub getValueFromPost {
my $self = shift;
return $self->getValue(@_);
my $self = shift;
if ($self->session->request) {
my $value = $self->session->form->param($self->get("name"));
return $value if (defined $value);
}
return $self->getDefaultValue;
}
#-------------------------------------------------------------------