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

allow WebGUI::Group->vitalGroup to be called on an object

Browse source
This commit is contained in:
Graham Knop 2009-09-23 05:24:51 -05:00
parent 272fcec3b1
commit 68d75637bb
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Group.pm
View file

@ -1563,22 +1563,26 @@ sub userGroupExpireDate {
#-------------------------------------------------------------------
=head2 vitalGroup ( $groupId )
=head2 vitalGroup ( [ $groupId ] )
Class method to check to see if a group is a reserved WebGUI group. Returns
true or false. Placed in here because I found two different lists in two
Class or object method to check to see if a group is a reserved WebGUI group.
Returns true or false. Placed in here because I found two different lists in two
different areas.
=head3 $groupId
A GUID of the group to check.
A GUID of the group to check. Optional if called on an object, and
will use the object's group ID instead
=cut
sub vitalGroup {
my $class = shift;
my $groupId = shift;
my $class = shift;
my $groupId = shift;
if (! $groupId && ref $class ) {
$groupId = $class->getId;
}
return isIn ( $groupId, (1..17), qw/pbgroup000000000000015 pbgroup000000000000016 pbgroup000000000000017 / );
}
}
1;