EMS import/export, Form::*::getValueFromPost(alt_values), and tests

This commit is contained in:
James Tolley 2007-05-29 23:39:24 +00:00
parent 0a7e06edca
commit c09b2cae1b
46 changed files with 1728 additions and 299 deletions

View file

@ -130,14 +130,19 @@ sub getOnChangeSlider {
#-------------------------------------------------------------------
=head2 getValueFromPost ( )
=head2 getValueFromPost ( [ value ] )
Retrieves a value from a form GET or POST and returns it. If the value comes back as undef, this method will return the defaultValue instead. Strip newlines/carriage returns from the value.
=head2 value
A value to process instead of POST input.
=cut
sub getValueFromPost {
my $self = shift;
my @args = @_;
my $properties = {
name => $self->get('name'),
@ -146,7 +151,7 @@ sub getValueFromPost {
id => 'view-'.$self->get('id'),
};
return WebGUI::Form::Integer->new($self->session, $properties)->getValueFromPost;
return WebGUI::Form::Integer->new($self->session, $properties)->getValueFromPost(@args);
}
1;