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

Rolled back to 7186 removing CheckList changes

Browse source
This commit is contained in:
Kaleb Murphy 2008-08-07 20:33:07 +00:00
parent ef56d94eaf
commit 2cce90f150
3 changed files with 0 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -86,41 +86,6 @@ sub getName {
return WebGUI::International->new($session, 'WebGUI')->get('941');
}
#-------------------------------------------------------------------
=head2 getValue ( [ value ] )
Returns an array or a carriage return ("\n") separated scalar depending upon whether you're returning the values into an array or a scalar. Also parses the input values (wherever they come from) to see if it's a scalar then it splits on \n.
=head3 value
Optional values to process, instead of POST input.
=cut
sub getValue {
my ($self, $value) = @_;
my @values = ();
if (defined $value) {
if (ref $value eq "ARRAY") {
@values = @{$value};
}
else {
$value =~ s/\r//g;
@values = split "\n", $value;
}
}
if (scalar @values < 1 && $self->session->request) {
my $value = $self->session->form->param($self->get("name"));
if (defined $value) {
@values = $self->session->form->param($self->get("name"));
}
}
return wantarray ? @values : join("\n",@values);
}
#-------------------------------------------------------------------
=head2 getSelectAllButton ( )