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

Form inheritance work for lists, removal of $session{os}{slash}

Browse source
This commit is contained in:
Colin Kuskie 2005-12-01 20:46:55 +00:00
parent abe85d439e
commit 99df1f414e
90 changed files with 1364 additions and 1168 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -92,6 +92,10 @@ Add extra attributes to the form tag like
onmouseover='doSomething()'
=head4 formName
The internationalized form name.
=head4 label
A text label that will be displayed if toHtmlWithWrapper() is called.
@ -144,6 +148,9 @@ sub definition {
my $class = shift;
my $definition = shift || [];
push(@{$definition}, {
formName=>{
defaultValue=>'A name for this form was not supplied'
},
name=>{
defaultValue=>undef
},
@ -273,7 +280,9 @@ Returns a human readable name for this form control type. You MUST override this
=cut
sub getName {
return "Form control not properly created."
my $self = shift;
my $definition = $self->definition;
return $definition->[0]->{formName}->{defaultValue};
}
@ -358,18 +367,23 @@ sub fixTags {
=head2 getValueFromPost ( )
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.
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.
It also handles return data in list or scalar contexts. If a Form
field that supports multiple select requests its values in scalar
context, it will return a newline "\n" separated scalar.
=cut
sub getValueFromPost {
my $self = shift;
my $formValue = $session{req}->param($self->{name});
if (defined $formValue) {
return $formValue;
} else {
return $self->{defaultValue};
my @formValues = $session{req}->param($self->{name});
unless (@formValues) {
@formValues = (ref $self->{defaultValue} eq "ARRAY")
? @{$self->{defaultValue} }
: ( $self->{defaultValue} );
}
return wantarray ? @formValues : join("\n",@formValues);
}
#-------------------------------------------------------------------
@ -467,7 +481,6 @@ sub prepareWrapper {
return ($fieldClass, $rowClass, $labelClass, $hoverHelp, $subtext);
}
#-------------------------------------------------------------------
=head2 toHtml ( )