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

Exposed APIs for Groups and Groupings.

Browse source
This commit is contained in:
JT Smith 2003-02-01 22:04:42 +00:00
parent fc3616a97b
commit 13bd980137
9 changed files with 753 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/HTMLForm.pm
View file

@ -599,7 +599,7 @@ sub file {
#-------------------------------------------------------------------
=head2 group ( name [ label, value, size, multiple, extras, subtext, uiLevel ] )
=head2 group ( name [ label, value, size, multiple, extras, subtext, uiLevel, excludeGroups ] )
Adds a group pull-down to this form. A group pull down provides a select list that provides name value pairs for all the groups in the WebGUI system.
@ -639,6 +639,10 @@ Extra text to describe this form element or to provide special instructions.
The UI level for this field. See the WebGUI developer's site for details. Defaults to "0".
=item excludeGroups
An array reference containing a list of groups to exclude from the list.
=back
=cut
@ -646,15 +650,16 @@ The UI level for this field. See the WebGUI developer's site for details. Defaul
sub group {
my ($output);
my ($self, @p) = @_;
my ($name, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel) =
rearrange([qw(name label value size multiple extras subtext uiLevel)], @p);
my ($name, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $excludeGroups) =
rearrange([qw(name label value size multiple extras subtext uiLevel excludeGroups)], @p);
if (_uiLevelChecksOut($uiLevel)) {
$output = WebGUI::Form::group({
"name"=>$name,
"size"=>$size,
"value"=>$value,
"multiple"=>$multiple,
"extras"=>$extras
"extras"=>$extras,
excludeGroups=>$excludeGroups
});
$output .= _subtext($subtext);
$output = $self->_tableFormRow($label,$output);