exposed a form variable for Gallery Album Others Can Add asset property
checkin missing WebGUI::User method
This commit is contained in:
parent
26d353e7e6
commit
afea092a97
4 changed files with 44 additions and 0 deletions
|
|
@ -332,6 +332,32 @@ sub getGroups {
|
|||
}
|
||||
}
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
|
||||
=head2 getGroupIdsRecursive ( )
|
||||
|
||||
Get the groups the user is in AND all the groups those groups are in, recursively.
|
||||
Returns a flattened array reference of unique group IDs
|
||||
|
||||
=cut
|
||||
|
||||
sub getGroupIdsRecursive {
|
||||
my $self = shift;
|
||||
my $groupingIds = $self->getGroups( "withoutExpired" );
|
||||
my %groupIds = map { $_ => 1 } @{ $groupingIds };
|
||||
while ( my $groupingId = shift @{ $groupingIds } ) {
|
||||
my $group = WebGUI::Group->new( $self->session, $groupingId );
|
||||
for my $groupGroupingId ( @{ $group->getGroupsFor } ) {
|
||||
if ( !$groupIds{ $groupGroupingId } ) {
|
||||
push @{ $groupingIds }, $groupGroupingId;
|
||||
}
|
||||
$groupIds{ $groupGroupingId } = 1;
|
||||
}
|
||||
}
|
||||
|
||||
return [ keys %groupIds ];
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 getWholeName ( )
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue