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

12
lib/WebGUI/Form.pm
View file

@ -510,18 +510,26 @@ If you want to add anything special to this form element like javascript actions
'onChange="this.form.submit()"'
=item excludeGroups
An array reference containing a list of groups to exclude from the list.
=back
=cut
sub group {
my (%hash, $value);
my (%hash, $value, $where);
$value = $_[0]->{value};
if ($$value[0] eq "") { #doing long form otherwise arrayRef didn't work
$value = [7];
}
tie %hash, 'Tie::IxHash';
%hash = WebGUI::SQL->buildHash("select groupId,groupName from groups where groupName<>'Reserved' order by groupName");
my $exclude = $_[0]->{excludeGroups};
if ($$exclude[0] ne "") {
$where = "where groupId not in (".join(",",@$exclude).")";
}
%hash = WebGUI::SQL->buildHash("select groupId,groupName from groups $where order by groupName");
return selectList({
options=>\%hash,
name=>$_[0]->{name},